
64: C64: €64: €64: C64 

c €64: C64: €64: C64: 
64 : 

r 


: C64: 


€64 


64^64: C64: C64: (Vi C64 
: C64: C64: C64: C64: €64: €64: < 
64: C64: C64: C64: C64: C64: €64 
: C64: C64: C64: €64: C64: C64: < 
64: C64: C64: C64: C64: 

: C64: C64: C6 


64: 


3-0 


i 

\ 

' Co«'' 0 ( Sò'' 0, '°' 

? Gw ppo 


*»*‘*M>»* 1 ® 


. 6 <* te " 


:WV>< e 




V. ' 30 ° 


C64: « 

55¥: C64: €64: €64 


€64: €64: C64: €64: C64: i 


64: €64: €64: €64: €64: C64: €64 


Guida per l'input dei programmi versioni 
C64 


Notate che i listati contengono 'pa¬ 
role' racchiuse tra parentesi graffe 
/ /. Tali parole rappresentano carat¬ 
teri di controllo come mostrato nel 
sottostante riquadro. Se sono pre¬ 
cedute da un numero, questo indi¬ 
ca il numero di volte che quel tasto 
deve essere premuto. Se il simbolo 
è sottolineato deve essere premuto 
contemporaneamente a SHIFT men¬ 
tre se è racchiuso da [{)] deve esse¬ 


(CLR) 

Mllil mthH-L'Jì 

E 

(CYN) 

(HOME) 


0 

(PUR) 

(SU) " 

croi 0E233 

□ 

(GRN) 

(GIU' ) 

iiimin 

E 

(BLU) 

(SIN) 


II 

(YEL) 

[DESI 


O 

[<1>] 

{RVS } 

eia d 

□ 

t<2>) 

(OFF) 

rm q 

a 

I<3>) 

{BLK} 

■•11:1* O 

■ 

I<4>] 

{WHTl 

r *11:71 Q 

m 

[<5>! 

(RED) 

KT71 Q 

e 

(<6>) 


re premuto contemporaneamente 
al tasto COMMODORE. Inoltre, se 
tra parentesi si trova un carattere 
alfabetico "solitario"’ questo dovrà 
essere premuto contemporanea¬ 
mente al tasto CONTROL. 

Con questo sistema di codifica, sa¬ 
rà molto più agevole copiare i lista¬ 
ti senza faticose e dubbie interpre¬ 
tazioni di caratteri grafici e di con- 


frollo del 

cursore o dei colori. 


QQ| O 


[<7>] 

□ O 

□ 

QQ| Q 

m 

(<8>) 

□ a 

■ ■ 
■ ■ 

HT71 Q 

□ 

(FI) 

CD 

5 

BOI O 

□ 

(F2) 

oa 

51 

O 

ss 

{ F 3 ) 

Usi 

5 

HO 

□ 

(F4 ) 

m 

12 

□ a 

K 

(F51 

GB 

II 

sa 

8 

(F6) 

U3 

SI 

SD 

G3 

( F7 ) 

DB 

II 

HO 

E 

(F8) 

03 

■ 

HO 

■1 





Per ricevere gli arretrati di ùi/'/j'J compilare il seguente tagliando: 

K 


■ /■« Compilare ed inviare in busta chiusa a: 

J.SOft viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome 


Cognome___ 

Indirizzo ---- 

CAP_ Città_Prov. 


Desidero ricevere i seguenti numeri arretrati di 
- 


Anno 


ùyJl'J dedicato a. 


Anno 


a L. 2.000 cad. per un totale di L. 


a mezzo 


□ assegno allegato □ contanti allegati 

K 
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Stop Bus 

Se non l'hai sia fatto, memorizza 
STOP BUG e salvalo su nastro o di¬ 
sco. 

Questo programma ti permette, 
una volta caricato ed attivato con 
RUN, di digitare i listati di Papersoft 
senza'introdurre errori di battitu¬ 
ra. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola: “-.rem'' seguita da un nume¬ 
ro, detto checksum; NON COPIA¬ 
RE QUESTA PARTE DELLA LINEA, 


che serve solo per tua informazio¬ 
ne. Quando STOP BUG è in funzio¬ 
ne, infatti, tutte le volte che premi 
il tasto RETURN dopo aver digitato 
una linea di programma, appare 
nell'angolo superiore sinistro dello 
schermo un numero, che deve 
coincidere con il checksum da noi 
pubblicato (sempre che tu non ab¬ 
bia usato comandi abbreviati, co¬ 
me? per PRINT). 

Usando STOP BUG tieni conto del 
fatto che gli spazi non influiscono 


4 












sul checksum, per cui fai particola¬ 
re attenzione alle istruzioni PRINT 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
STOP BUG, soprattutto se sei abi¬ 
tuato ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo RETURN su ogni linea. 


Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che STOP BUG 
interferisca,- al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare STOP BUG prima 
di ricaricare il tuo programma. 

Per disabilitare STOP BUG premi 
RUN/STOP e RESTORE, e per riatti¬ 
varlo batti SYS 40704. 


STOP BUG per C64 

100 POKE55,0 :POKE56,PEEK(56)-1 :R=PEEK(56)* 2 56 :PRINT"{CLR} 
ATTENDERE PREGO..." 

110 FORI=RTOR+l32:READA:CK=CK+A:IFA=999THENA=R/256 
120 POREI,A:NEXT 

130 IFCK022689THENPRINT" {GIU'}ERRORE NELLE ISTRUZIONI DA 
TA":END 

140 SYS(R):PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIVAT 
O. ": NEW 

200 DATAI 73,3 6,3,201 ,32,208,1 ,96,1 41 
210 DATA33,999,173,37,3,141,34,999,169 
220 DATA32,141,36,3,169,999,141,37,3 
2 30 DATAI 69,0,1 33,2 54,96,32,87,241 ,1 33 
240 DATA251 ,1 34', 252,1 32,253,8,201 ,1 3,240 
250 DATAI 7,201 ,32,240,5,24,1 01 ,254,1 33 
260 DATA254,!65,251,166,252,164,253,40,96 
270 DATAI 69,1 3,32,21 0,255,1 65,21 4,1 41 ,251 
280 DATA3,206,251,3,169,0,133,216,169 
2 90 DATAI 9,32,21 0,2 55,1 69,1 8,32,21 0,2 55 
300 DATAI 69,5 8,32,21 0,255,1 66,254,1 69,0 
310 DATAI 33,2 54,1 72,33,999,192,87,208,6 
320 DATA32,205,189,76,117,999,32,205,221 
330 DATAI 69,32,32,21 0,255,32,21 0,2 55,1 73 
340 DATA251,3,133,214,76,55,999 


5 
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PI Funzioni 3-D 


Ecco finalmente il prosramma che 
sarà la gioia di tutti gli appassionati 
commodoriani e non che hanno in¬ 
trapreso studi scientifici o tecnici. 
In questi campi infatti sono molto 
usate le funzioni triogonometriche 
come il seno, il coseno, la tangen¬ 
te. Molto spesso per capire bene 
le caratteristiche e i risultati di tali 
funzioni è necessario averne una 
rappresentazione grafica che ne 
mostri l'andamento. 

Il programma svolge superbamen¬ 
te questo compito, mostrandovi 
delle utili e bellissime rappresenta¬ 
zioni tridimensionali delle funzioni 
che voi stessi immettete nel com¬ 
puter. 

Facendo partire il programma vi 
sarà chiesta la funzione da visua¬ 
lizzare, che dovrà essere immessa 
nel seguente modo: 

z=f(x,y) 

Dopo aver immesso tale funzione 
il computer calcolerà alcuni para¬ 
metri e vi chiederà i campi tra cui 


devono essere compresi X, Y e Z. 
Se i campi dei tre assi saranno 
uguali, la funzione non sarà distor¬ 
ta. Inoltre il C64 vi chiederà il nu¬ 
mero di passi con cui disegnare la 
funzione (un numero alto di passi 
richiede più tempo per essere di¬ 
segnato). Dopo alcuni secondi il 
computer darà inizio alla tracciatu¬ 
ra del disegno. 

Ecco un bell’esempio di funzione 
trigonometrica, da impostare così 
come è scritta: 

Z=SIN(X)+COS(Y) 
campo della X = -3.14,3.14 
campo della Y = -4,4 
campo della Z = -2,2 
numero di passi = 12 

NOTA MOLTO IMPORTANTE 
Nel battere questo programma. È 
FONDAMENTALE, pena il non fun¬ 
zionamento del programma stes¬ 
so, non tralasciare nessuno spazio 
o carattere. FUNZIONI 3-D deve 
essere digitato IDENTICO a come è 
stato pubblicato! 


1 REM* * * * * * *FUNZIONI 3_d************ : rem 73 

2 rem*************************** :rera 132 

5 POKE45,1 :POKE46,65 :POKE47,1 :POKE48,65:POKE49,1 :POKE50,6 

5 :rem 201 

7 DIMZ$(23):FORI=OTO23:READA$:Z$(I)=A$:NEXT:GOSUBl000 


8 FORI = 828TO890:READA : POREI,A:NEXT 
10 FORI = 900TO992 :READA: POREI,A:NEXT 
12 DIMH(320) ,L(320) 

14 FORI = 1T0320 :H(I)=2 00:L(I)=0:NEXT 


: rem 199 
: rem 186 
: rem 221 
: rem 201 
:rem 44 
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16 GOSUB7000:REM ******** 


: rem 

28 

18 POKE53265,59 :POKE53272,24 


: rem 

53 

20 SYS(828) 


: rem 

84 

40 AA= 8192:T2=0:T3 = 1 


: rem 

83 

80 REM DIREZ. X. 


: rem 

1 26 

90 FORRE=OTOSC-1:T0 = 0:Tl=0:LH= 1 


: rem 

126 

1 00 

FORXX=10+RE*SXT0160+RE*SX:Tl=Tl+1:IFTl 

= 3THENT1=0 : 

T0 = T 


0 + 1 


: rem 

197 

1 01 

XN=(Xl+(XX-10-RE*SX)*XS) 


: rem 

119 

1 03 

X=XN:Y=Yl+YS*RE 


: rem 

1 93 

1 06 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 


FFFFFFFFFFFFFFFFFFFFF 


: rem 

21 1 

1 07 

Z=-INT((Z-ZH)/ZS)+100-RE*SZ+T0 


: rem 

244 

1 1 1 

IFZ< OTHENH(XX)=0:LH=1 :GOTO200 


: rem 

14 

1 1 2 

IFZ> 2 OOTHENL(XX)=200:LH=1 :GOTO200 


: rem 

21 7 

1 1 6 

IFZ<H(XX)THENH(XX)=Z:GOTOl18:REM SOPRA 


: rem 

197 

1 1 7 

IFZ<L(XX)THENLH=1:GOTO200:REM CENTRO 


: rem 

42 

1 1 8 

IF Z >L(XX)THENL(XX)= Z: REM SOTTO 


: rem 

21 6 

1 20 

YP=INT(Z/8):XP=INT(XX/8) 


: rem 

232 

1 30 

Al=(YP*40+XP)*8 


2 rem 

0 

1 40 

AY=Z~8 *YP+A1 


2 rem 

155 

1 60 

R=XX-8 *XP:M=2 t(7-R) 


2 rem 

104 

1 80 

I=PEEK(AY+AA) 


2 rem 

220 

1 90 

POKEAY+AA,IORM:V2 = Z:IFLH=1THENLH=0:Vl = 

V2 

2 rem 

77 

1 95 

DI=V2~Vi :IFDI<-1THENGOSUB6000:G0T0200 


2 rem 

15 

1 97 

IFDI>1THENGOSUB61 00 


2 rem 

1 62 

200 

NEXTXX:IFRE<SC-1THENGOSUB2 000 


2 rem 

1 30 

210 

NEXTRE:G0T02 21 0 


2 rem 

1 61 

1 000 

PRINT"{CLR}":PRINT"DIGITA LA FUNZIONE 

DA 

VISUALIZZAR 


E: " 


2 rem 

69 

1 01 0 

INPUTF$:LE=LEN(F$) 


2 rem 

94 

1 020 

FORI=lT03:READA:ZA=0 


2 rem 

1 6 

1 040 

FORJ=1TOLE:F=ASC(MID$(F$,J,1)) 


2 rem 

9 

1 050 

IFF<65THEN1100 


2 rem 

51 

1 052 

IFF=94THENF=174:GOTOl 1 40 


2 rem 

206 

1 055 

IFF=88ORF = 8 9ORF=90THENl 1 40 


2 rem 

1 00 

1 060 

B$=MID$(F$,J,3) 


2 rem 

248 

1 065 

FORK=0TO2 3:IFB$=Z$(K)THENl 0 75 


2 rem 

245 

1 070 

NEXTK:PRINT:PRINT"ERRORE ! !":PRINT"RICOMINCIA !" 

:END 




2 rem 

80 

1 075 

F=K+170 :J = J+2:GOTOl140 


2 rem 

255 

1 1 00 

B$ =MID$(F$,J,1) 


2 rem 

241 

1 1 05 

FORK=0TO23:IFB$ = Z$(K)THEN1 1 1 5 


2 rem 

235 

ino 

NEXTK:GOTO1140 


2 rem 

134 

1115 

F=K+170 


2 rem 

89 

1 140 

POKEA+ZA,F:ZA=ZA+1:NEXTJ 


2 rem 

58 

1 1 50 

POKEA+ZA,58 :POKEA+ZA+l , 1 43 


2 rem 

38 

1 160 

NEXTI 


2 rem 

80 

1 250 

INPUT"CAMPO X : Xl,X2 


2 rem 

24 

1 260 

INPUT"CAMPO Y : ";Yl,Y2 


2 rem 

28 

1 270 

INPUT"CAMPO Z : " ; Z1 , Z 2 


2 rem 

32 


7 


1 280 

INPUT"PASSI{ 3 SPAZI}: ";SC 

: rem 

42 

1 290 

ZS=(Z2-Z1)/l50 :ZH=Zl+(Z2-Zl)/2:XS=(X2-X1)/I50:YS = 

^ ( Y2 


— Y1)/(SC-1) 

: rem 

1 1 9 

1 300 

SZ=INT(40/SC+.5):SX=3*SZ 

: rem 

205 

1 900 

01 = (X2-Xl)/(SC-1) : 02=(Y2-Y1)/((SC-1) *SX) 

: rem 

1 77 

1 91 0 

04 = 150/(SC-1) : 03=04/3:RETURN 

: rem 

1 41 

2000 

REM Y-DIRECTION 

: rem 

205 

2002 

T3=T3-1 :FORSP=OTOSC-1:LH=1 :T0=T2:Tl=T3 

: rem 

11 7 

2005 

05=10+INT(SP*04) 

: rem 

1 60 

201 0 

F0RXX=05+RE*SXT005+(RE+1)*SX 

: rem 

29 

201 2 

Tl=Tl+1 :IFTl=3THENT1=0:T0=T0 + 1 

: rem 

34 

2020 

YN=(Yl+(XX-05)*02) 

: rem 

1 1 

2025 

X=Xl+SP*Ol:Y=YN 

: rem 

21 4 

2030 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 


FFFFFFFFFFFFFFFFFFFFF 

: rem 

1 87 

2040 

Z=-INT((Z-ZH)/ZS)+100-T0+INT((SP*04)/3) 

: rem 

243 

2060 

IFZ<0THENLH=1:GOTO2200 

: rem 

1 33 

2070 

IFZ>200THENLH=1:GOTO2200 

: rem 

234 

2090 

IFZ<L(XX)THENIFZ>H(XX)THENLH=1 :GOTO2200: REM CENT. 

: rem 

1 86 

21 1 0 

YP=INT(Z/8):XP=INT(XX/8) 

: rem 

25 

21 20 

Al=(YP*40+XP)*8 

: rem 

49 

2130 

AY=Z- 8 *YP+Al 

: rem 

204 

21 40 

R=XX-8 *XP:M=2 t (7-R) 

: rem 

1 52 

21 50 

I=PEEK(AY+AA) 

: rem 

11 

21 60 

POKEAY+AA,IORM:V2=Z:IFLH=1THENLH=0:Vl =V2 

: rem 

124 

21 65 

DI=V2-V1:IFDI<-1THENGOSUB6000:GOTO2200 

: rem 

112 

21 67 

IFDI>1THENGOSUB6100 

: rem 

209 

2200 

NEXTXX:NEXTSP:T2 =T0:T3 =Tl : RETURN 

: rem 

237 

2210 

A=0:B = 0:FORZ = 0TO200 

: rem 

121 

2220 

IFZOATHEN2 2 50 

: rem 

98 

2230 

F0RXX=BT06:GOSUB2 50 0 :NEXTXX 

: rem 

96 

2240 

READA,B 

: rem 

1 47 

2250 

XX=6:GOSUB2500 

: rem 

1 09 

2260 

NEXTZ 

: rem 

99 

2270 

GETB$:IFB$=""THEN2270 

: rem 

1 87 

2280 

IFB$="P"THEN8000 

: rem 

1 37 

2290 

END 

: rem 

1 64 

2500 

YP=INT(Z/8):XP=INT(XX/8) 

: rem 

28 

2505 

Al=(YP*40+XP)*8 

: rem 

56 

251 0 

AY= Z-8 *YP+Al 

: rem 

206 

2520 

R=XX-8 *XP:M=2 T (7-R) 

: rem 

1 54 

2530 

I=PEEK(AY+AA) 

: rem 

1 3 

2540 

POKEAY+AA,IORM:RETURN 

: rem 

1 90 

4800 

DATA+,-,*,/,t,AND,OR,>,=,<,SGN,INT,ABS,USR 

,FRE,POS,S 


QR,RND,LOG,EXP 

: rem 

1 27 

481 0 

DATACOS,SIN,TAN,ATN 

: rem 

0 

4900 

DATA2534,3868,5800 

: rem 

1 79 

5000 

DATAI 69,0,1 33,251 , 1 69,4,1 33,252,1 62,0,1 69, 

15,129, 

251 


,230,251,208,2,230,252 

: rem 

80 


8 


5010 

DATAI 65,251,201 ,232,208,240,1 

65,252,201,7,208,234,16 


9,32,133,252,169,0,133 

: rem 

84 

5020 

DATA251,169,0,129,251,230,251 

,208,2,230,252,165, 

251 , 


201,0,208,240,165,252 

: rem 

24 

5030 

DATA201,64,208,234,96 

: rem 

49 

5035 

REM PRINT SR 

: rem 

227 

5040 

DATAI 62,0,1 69,1 28,1 41 ,232,3,1 69,0,1 41 , 233,3,1 60, 

0,1 7 


7,251,45,232,3 

: rem 

1 93 

5045 

DATA240,5,169,128,76,160,3,41 

,0,13,233,3 :rem 

205 

5050 

DATA24,106,141,233,3,200,192, 

7,208,229,9,128,142 

,235 


,3,162,0,238,234,3,230 

: rem 

77 

5060 

DATA253,208,2,230,254,129,253 

,174,235,3,232,224, 

8,24 


0,7,24,110,232,3,76,139 

: rem 

1 38 

5070 

DATA3,165,251,24,105,8,133,251,144,2,230,252,173 

,234 


,3,201,160,208,164,96 

: rem 

34 

51 00 

DATA24,3,49,3,74,3,99,0,124,3 

,149,3,174,3,199,0, 

0,0 



:rem 

226 

51 1 0 

DATA25,3,43,3,62,3,81,5,100,3 

,118,3,137,3,156,5, 

0,0 



: rem 

202 

51 20 

DATAI 71 , 3,1 86,3,201 ,3,21 6,5,2 31 , 3,246,3,261 , 3,276,5, 


0,0 

: rem 

1 52 

6000 

FORZ=V2+lTOV1-1 

: rem 

176 

6010 

YP=INT(Z/8):XP=INT(XX/8) 

: rem 

28 

6020 

Al =(YP*4 0+XP)*8 

: rem 

52 

6030 

AY=Z-8*YP+A1 

: rem 

207 

6040 

I=PEEK(AY+AA) 

s rem 

13 

6060 

POKEAY+AA,IORM 

: rem 

1 65 

6070 

NEXTZ:Vi=V2: RETURN 

: rem 

6 

61 00 

FORZ=V2-1TOVl+1STEP-1 

: rem 

75 

61 1 0 

YP=INT(Z/8):XP=INT(XX/8) 

: rem 

29 

61 20 

Al=(YP*40+XP)*8 

: rem 

53 

61 30 

AY=Z-8 *YP+Al 

2 rem 

208 

61 50 

I=PEEK(AY+AA) 

2 rem 

1 5 

61 60 

POKEAY+AA,IORM 

2 rem 

166 

61 70 

NEXTZ:Vi=V2:RETURN 

2 rem 

7 

7000 

RE=SC-1:T0=0:Tl=0 

2 rem 

230 

7010 

FORXX=10 + INT(RE*04)TOl0+(SC-l) *SX+INT(RE*04) :Tl = 

TI +1 


:IFTl =3THENT1=0:T0=T0+1 

2 rem 

51 

7020 

YN=(Yl+(XX-10-INT(RE*O4))*02) 

2 rem 

154 

7025 

X=X1+RE*01:Y=YN 

2 rem 

207 

7030 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 


FFFFFFFFFFFFFFFFFFFFF 

: rem 

1 92 

7040 

Z=-INT((Z-ZH)/ZS)+100+INT(RE* 1 

03)-T0 :rem 

56 

71 00 

H(XX)=Z 

: rem 

1 68 

7200 

NEXTXX:RETURN 

: rem 

21 0 

8000 

ZE=50:REM ROUT. STAMPA. 

: rem 

147 

801 0 

POKE2 51,0 :POKE2 52,32 :ZA=0 

: rem 

1 93 

8012 

FORK=lTOZE:POKE2 53,63 :POKE2 54 

,31 :POKEl 00 2,0 : rem 

97 

801 5 

SYS(900):A$="" 

: rem 

21 5 

8020 

FORI=8000TO8159 

: rem 

121 

8030 

A=PEEK(I) 

: rem 

8 


9 


8040 

A$=A$+CHR$(A) 

: rem 

145 

8050 

NEXTI 

: rem 

85 

8060 

ZA=ZA+1 :OPEN4,4 :PRINT#4, CHR$(8)A$; 

: rem 

17 

8065 

IFZA=2THENZA=0:PRINT#4 

: rem 

1 93 

8067 

CLOSE4 

: rem 

1 27 

8070 

NEXTK:IFZE<50THEN8300 

: rem 

92 

81 00 

SYS(828) 

: rem 

1 87 

81 1 0 

K=0:T0=0:A=6:B=5:FORXX=6TOl56 

: rem 

1 2 

81 20 

IFAOXXTHEN81 50 

: rem 

1 94 

81 30 

FORZ = KTOK+B:GOSUB2 50 0 :NEXTZ 

: rem 

68 

81 40 

READA,B 

: rem 

1 52 

81 50 

Z = K:GOSUB2 500 :T0=T0+1 :IFT0=3THENT0=0:K=K+1 

: rem 

82 

81 60 

NEXTXX 

: rem 

1 90 

821 0 

K=50 :T0 = 0 : A=1 56 : B=-5 : FORXX= 1 56TG2 76 

: rem 

17 

8220 

IFAOXXTHEN8 2 50 

: rem 

1 96 

8230 

FORZ=KTOK+B:GOSUB2500:NEXTZ 

: rem 

69 

8240 

READA,B 

: rem 

1 53 

8250 

Z = K:GOSUB2 50 0:T0=T0+1 :IFT0 = 3THENT0=0:K=K-1 

: rem 

85 

8260 

NEXTXX:ZE=14 :GOTO8010 

: rem 

11 8 

8300 

OPEN4,4 :PRINT#4,CHR$(15) 

: rem 

147 

831 0 

CMD4:PRINT 

: rem 

1 55 

831 5 

PRINT"FUNZIONE : ";F$:PRINT 

: rem 

1 82 

8320 

PRINT"CAMPO X : "; X1 ;" - ";X2 

: rem 

21 3 

8330 

PRINT"CAMPO Y : ";Yl;" - ";Y2 

: rem 

21 7 

8340 

PRINT"CAMPO Z : ";Z1 ; " - ";Z2 

: rem 

221 

8345 

PRINT"PASSI{ 3 SPAZI}: ";SC 

: rem 

48 

8350 

CLOSE4: END 

: rem 

1 39 


ERRATA CORRIGE 


A causa di una malaugurata svista in fase di composizione, i listati "IL 
FANTASMA DEL TEATRO - seconda parte" e "SIMON'S MASTER" pubbli¬ 
cati rispettivamente sul numero 43 e sul numero 44 di Papersoft C64, sono 
stati "mischiati" tra di loro. Chi volesse digitare SIMON’S MASTER nella 
sua corretta versione dovrà incominciare digitando le linee dalla 1 alla 
numero 60 a pag. 6 del numero 44, proseguire con le pagine 7 e 8 del 
numero 43 e finire dalla linea 6200 in poi sul numero 44. 

Sono insomma state invertite le pagine 7 e 8 del numero 43 e 44. Procedura 
inversa alla precedente occorrerà seguire per digitare il corretto listato de 
"IL FANTASMA DEL TEATRO - seconda parte”. Ce ne scusiamo con i 
nostri lettori, promettendo che faremo il possibile affinché sfortunati errori 
del genere non si ripetano. 


io 




* 


Gioco di spada 


Scegli il tuo momento e quindi infi¬ 
la la tua spada nel corpo dei mostri 
che si stanno avvicinando. 

Non è difficile colpire al momento 
giusto, inoltre ci sono mostri più 
pericolosi di altri (il grado di diffi¬ 
coltà viene indicato ogni volta). 

I comandi che puoi usare sono tre, 
e corrispondono sulla tastiera ai 
numeri 4,5 e 6-. 

4 muove a sinistra 
6 muove a destra 

5 muove la spada 


Per prendere più punti devi riuscire 
a colpire i mostri all'estrema destra, 
ma l'importante è sopravvivere, e 
non è veramente una cosa facile. 
Riuscirà il "gatto vampiro" a nutrirsi 
alla tua giugulare? Tu logicamente 
speri di no, ma chi potrà mai dirlo? 
Ogni volta che vinci le tue ferite 
vengono leggermente rimarginate, 
ma se viene ferito per più di quat¬ 
tro volte allora sei definitamente 
MORTO! 


1 0 

REM * * *GIOCO DI SPADA*** 

: rem 

1 68 

1 2 

GOSUB7000 

: rem 

170 

20 

POKEUG,U0:POKEUB,U2 

: rem 

145 

30 

DD$ ( 0)=" SEI ILLESO E PRONTO PER COMBATTERE. 

.! " 

: rem 

43 

31 

DD$ (!)="{ 2 SPAZI}SEI LEGGERMENTE FERITO ... 


1 


{ 2 SPAZI}" 

: rem 

21 7 

32 

DD$ (2)=" HAI RICEVUTO MULTIPLE LACERAZIONI." 

: rem 

35 

33 

DD$(3)="STAVOLTA COMBATTERAI PER LA TUA VITA 

i » 

: rem 

99 

1 00 

DIMVL(8) 

: rem 

1 50 

110 

FOR J=0TO8:READVL(J):NEXTJ 

: rem 

97 

1 20 

DATA 3,4,3,4,2,5,2,2,4 

: rem 

21 8 

1 50 

REM 

: rem 

1 22 

1 60 

REM 

: rem 

1 23 

1 70 

REM 

: rem 

1 24 

1 80 

VK=0:WK=0:PK=0 

: rem 

50 

200 

DIMV$(8) 

: rem 

1 1 1 

21 0 

FORK=0TO8:READV$(K):NEXT 

: rem 

242 

220 

DATA"CAPRA CANCRENA","MOLLA MARINA","GATTO 

VAMPIRO 

: rem 

" 

62 

230 

DATA"VERME POLITICO","MISURA FANCIULLE","SPINACIO 

RAM 


PANTE" 

: rem 

1 99 

240 

DATA"BARBA ARRUFFATA","BANCHIERE RIBELLE"," 

ALBATRO 

SO 


TTACETO" : rem 3 

300 PRINTUE$;"{CLR}{ 10 SPAZI}{RVS} GIOCO DI SPADE {OFF}" 


:rem 255 






31 0 

320 

330 

340 

350 

360 

370 

380 

390 

400 
41 0 

420 

430 

440 
4 50 
460 
470 

480 

490 

495 

496 
500 
51 0 
530 
550 
555 
600 

602 

604 

606 

61 0 

61 2 


PRINTU5$;"{GIU'} IN QUESTO GIOCO DEVI COMBATTERE CONTR 

O" : rem 4 3 

PRINT"UN'ORDA DI TERRIFICANTI MOSTRI. TU SEI" 

:rem 253 

PRINT"ARMATO SOLO DI UNA SPADA..." : rem 204 

PRINT"{GIU'}I TUOI COMANDI SONO {RVS}4{ 2 SPAZljMUOVE 
A SINISTRA" : rem 189 

PRINT"{ 20 SPAZI}{RVS}6{ 2 SPAZI}MUOVE A DESTRA" 

:rem 65 

PRINT"{ 20 SPAZI}{RVS}5{ 2 SPAZI}COMANDA LA SPADA" 

:rem 154 

PRINT"{GIU'}LA SPADA PUO'ASSUMERE DUE POSIZIONI." 

: rem 194 

PRINT"LA PRIMA VOLTA CHE PREMI ’5', METTI LA" 

: rem 4 

PRINT"TUA SPADA IN POSIZIONE DI GUARDIA. LA " 


PRINT"SECONDA VOLTA TIRI UNA STOCCATA." 

PRINT"ALCUNI MOSTRI SONO PIU'DURI DA UCCIDE 

PRINT"DI ALTRI. LO SPINACIO RAMPANTE E'" 

PRINT"PARTICOLARMENTE CATTIVO DA MANGIARE.. 

PRINT"OTTIENI PIU' PUNTI SE UCCIDI I MOSTRI 
PRINT"ALL'ESTREMA DESTRA DELLO SCHERMO." 
PRINT"OGNI VOLTA CHE VINCI, LE TUE FERITE" 
PRINT"SONO LEGGERMENTE RISANATE." 

PRINT"SE VIENI FERITO PIU'DI 4 VOLTE," 
PRINT"ALLORA SEI DEFINITIVAMENTE MORTO 

PRINTTAB(13)"{GIU'}{RVS}PREMI UN TASTO{OFF} 

GETA$:IFA$ = ""THEN4 96 
DIMD$(1,4),M$(1,4,8) 

FORJ = OTOl : FORI = 1T04:READD$(J,I) 

NEXTI,J 
REM 

REM VEDERE LINEA 7000 PER DETTAGLI 

DATA"{GIU'}[<3>]0[<5>]j-{GIU'}{ 3 SIN}U{RVS}i 

{GIU'}{ 2 SIN}))" 

DATA" {GIU 1 } [<3>]0[<5>]-_{GIU' }{ 3 SIN}U{RVS} 
{GIU'}{ 2 SIN}X" 

DATA"{GIU 1 }[<3>]0[<5>] /{GIU'}{ 4 SIN}j{RVS 
[<Y>]{GIU'}{ 2 SIN}X" 

DATA"{GIU'}[<3>]0[<5>] {GIU'}{ 3 SIN}J{RVS} 

[<Y>][< 2 T> }{GIU'}{ 5 SIN}/ )" 

DATA"{GIU'}{ 2 SPAZI}{GIU'}{ 3 SIN}{ 3 SPAZ 
{ 2 SIN}{ 2 SPAZI}" 

DATA"{GIU'}{ 2 SPAZI}{GIU'}{ 3 SIN}{ 3 SPAZ 


: rem 

92 

: rem 

1 32 

tE" 

: rem 

81 

: rem 

83 

ii 

: rem 

1 09 

1 : rem 

1 54 

: rem 

237 

: rem 

209 

: rem 

95 

: rem 

21 3 

ii 

: rem 

24 

SU} " 

: rem 

240 

: rem 

1 05 

: rem 

1 56 

: rem 

133 

: rem 

1 50 

: rem 

1 26 

: rem 

1 63 

{OFF}K 

: rem 

251 


S{OFF}K 
• : rem 3 
}jS { OFF } 

: rem 213 
£3 {OFF} 

:rem 40 
1}{GIU'} 
:rem 57 
1}{GIU'} 
:rem 59 


12 


614 

61 6 

650 

660 

680 

700 

702 

704 

706 

71 0 

712 

71 4 

71 6 

720 


722 

724 

726 


730 

732 

734 

736 

740 

742 

744 

746 

750 

752 

754 


DATA"{GIU'}{ 3 SPAZI}{GIU 1 }{ 4 SIN}{ 3 SPAZI}{GIU'} 

{ 2 SIN} ” : rem 218 

DATA”{GIU 1 }{ 2 SPAZI}{GIU’}{ 3 SIN}{ 5 SPAZI}{GIU'} 

{ 5 SIN}{ 3 SPAZI}" : rem 22 

FORK=OT08:FORJ = OTC>1:F0RI=lT04 :rem 112 

READM$(J,I,K) : rem 176 

NEXTI,J,K : rem 19 

DATA"{GIU'}{WHT} QK{GIU'}{ 2 SIN}{RVS}{ 2 SPAZI}{OFF} 
-{GIU'H 3 SIN}J )" : rem 158 

DATA"{WHT}{ 2 SPAZI}QK{GIU 1 }{ 3 SIN}U[<*>]{RVS} [<*>] 

{OFF}[<@>]{GIU'}{ 4 SIN} J//" : rem 8 

DATA"{WHT} QK{GIU' }{ 2 SIN}{RVS}{ 2 SPAZI}{OFF}- 
{GIU'}{ 3 SIN}J /" : rem 151 

DATA"{GIU 1 }{WHT}QK{RVS}£{OFF}/{GIU' }{ 3 SIN} [<*>]£ 

M{GIU'}{ 3 SIN}(" : rem 118 

DATA"{GIU'}{ 3 SPAZI}{GIU'}{ 2 SIN}{ 3 SPAZl}{GIU’} 

{ 3 SIN}{ 4 SPAZI}" : rem 58 

DATA"{ 4 SPAZI}{GIU'}{ 3 SIN}{ 5 SPAZl}{GIU'} 

{ 4 SIN}{ 3 SPAZI}" : rem 101 

DATA"{ 3 SPAZI}{GIU*}{ 2 SIN}{ 3 SPAZI}{GIU 1 } 

{ 3 SIN}{ 3 SPAZI}" : rem 45 

DATA"{GIU'}{ 4 SPAZI}{GIU'}{ 3 SIN}{ 3 SPAZl}{GIU'} 

{ 3 SIN} " : rem 221 

DATA"[<2>]***{GIU'}{ 4 SIN}*{RED}Q{RVS}:{OFF}Q[<2>]* 
{GIU'H 5 SIN}* [<*>] {RVS} {OFF}£*lGIU'} { 3 SIN} = " 


:rem 219 

DATA"{GIU 1 }[<2>]***{GIU'}{ 4 SIN}*{RED}Q{RVS}:{OFF}Q 
[<2>]*{GIU'}{ 5 SIN}*[<*>] {RVS} {OFF}£*" :rem 201 

DATA"{ 2 GIU'}[<2>]***{GIU'}{ 4 SIN}*TRED}Q{RVS}: 

{OFF}Q[<2>]*" : rem 58 

DATA"lGIU'}[<2>]***{GIU'}{ 4 SIN}*{RED}Q{RVS}:{OFF}Q 
[< 2>]*{GIU'}{ 5 SIN}*[<*>] {RVS} {OFF}£*" : rem 205 


DATA"{ 3 SPAZI}{GIU'}{ 4 SIN}{ 5 SPAZI}{GIU 1 } 

{ 5 SIN}{ 5 SPAZI}{GIU'}{ 3 SIN} " : rem 135 

DATA"{GIU'}{ 3 SPAZI}{GIU'}{ 4 SIN}{ 5 SPAZI}{GIU’} 

{ 5 SIN}{ 5 SPAZI}" : rem 178 

DATA"{ 2 GIU'}{ 3 SPAZI}{GIU'}{ 4 SIN}{ 5 SPAZI}" 

:rem 163 

DATA"{GIU 1 }{ 3 SPAZI}{GIU' }{ 4 SIN}{ 5 SPAZI}{GIU'} 

{ 5 SIN}{ 5 SPAZI}" : rem 182 

DATA"{ 2 GIU'}[<4>]Q[<I>]K{GIU'}{ 2 SIN}X" : rem 147 
DATA"{ 2 GIU'}[<4>]Q[<I>]K{GIU'}{ 2 SIN}[< 2 J>]" 

:r em 167 

DATA"{GIU'}[<4>]Q[<I>]F{GIU'}{ 2 SIN}{ 2 M}": rem 195 
DATA" {GIU 1 } [<4>]Q[<I>]_I{GIU' } { 3 SIN}{ 2 N}":rem 103 
DATA"{ 2 GIU'}{ 3 SPAZI}{GIU'}{ 2 SIN} " : rem 103 

DATA"{ 2 GIU'}{ 3 SPAZI}{GIU'}{ 2 SIN}{ 2 SPAZI}" 

:rem 105 

DATA"{GIU'}{ 3 SPAZI}{GIU'}{ 2 SIN}{ 2 SPAZI}" 

:rem 90 


13 


756 

760 

762 

764 

766 

770 

772 

774 

776 

780 

782 

784 

786 

790 

792 

794 

796 

800 

802 

804 

806 

81 0 
81 2 
81 4 


DATA"{GIU'}{ 3 SPAZI}{GIU'}{ 3 SIN}{ 2 SPAZI}" 

:rera 249 

DATA"{ 2 GIU 1 }{ PUR}Q{GRN}W{ 2 SPAZI}W{GIU'}{ 3 SIN} 

{ 2 W} W" :rem 195 

DATA 75- } 2 GIU' } {PUR}Q{GRN} { 2 SPAZI}} 2 W}{GIU'} 

{ 4 SIN}{ 2 W}{ 2 SPAZI}W" :rem 98 

DATA"} 2 GIU'}{GRN} { 2 W} W{GIU'}{ 6 SIN}}PUR}Q}GRN} 
W{ 2 SPAZI}W" : rem 188 

DATA"} 2 GIU'}{GRN}{ 2 SPAZl}W{ 2 SPAZI}}GIU'} 

{ 6 SIN}}PUR}Q{GRN}{ 2 W} { 2 W}" : rem 190 

DATA"} 2 GIU'J} 5 SPAZlT{GIU'}T 3 SIN}} 4 SPAZI}" 

: rem 6 

DATA"} 2 GIU'}} 5 SPAZI}{GIU'}{ 4 SIN}} 5 SPAZI}" 

:rem 165 


DATA"} 2 GIU'}} 5 SPAZI}{GIU'}{ 6 SIN}} 


5 SPAZI}" 

:rem 225 


DATA"} 2 GIU'}} 5 SPAZI}}GIU'}{ 6 SIN}} 


6 SPAZI}" 
: rem 


227 


DATA"[<3>]$$$$${GIU'}{ 5 SIN}${RVS}Q.Q{OFF}${GIU'} 

{ 5 SIN}$}RVS}JCK{OFF}${GIU'}} 5 SIN}<< >>" :rem 161 
DATA"[<3>]$$$$$TGIU'}} 5 SIN}${RVS}Q.Q{OFF}${GIU'} 

{ 5 SIN}${RVS} C {OFF}${GIU'}{ 5 SIN} XX" : rem 202 
DATA"[<3>]$$$$$lGIU'}{ 5 SIN}$}RVS}Q.Q{OFF}${GIU'} 

{ 5 SIN}${RVS}UCI{OFF}${GIU'}{ 5 SIN}<< >>" :rem 174 
DATA"[<3>]$$$$$TGIU'}{ 5 SIN}${RVS}Q.Q{OFF}${GIU’} 

{ 5 SIN}${RVS} + {OFF}${GIU'}{ 5 SIN} XX" : rem 54 
DATA"{ 5 SPAZI}{GIU’}{ 5 SIN}{ 5 SPAZI}{GIU'} 

{ 5 SIN}{ 5 SPAZI}{GIU'}{ 5 SIN}{ 5 SPAZI}" :rem 100 
DATA"{ 5 SPAZI}{GIU'}{ 5 SIN}{ 5 SPAZI}{GIU 1 } 

{ 5 SIN}{ 5 SPAZI}{GIU'}{ 5 SIN}{ 5 SPAZI}" : rem 102 
DATA"} 5 SPAZI}{GIU'}{ 5 SIN}{ 5 SPAZI}{GIU'} 

{ 5 SIN}{ 5 SPAZI}{GIU'}{ 5 SIN}{ 5 SPAZI}" :rem 104 
DATA"{ 5 SPAZI}{GIU 1 }{ 5 SIN}{ 5 SPAZI}{GIU 1 } 

{ 5 SIN}{ 5 SPAZI}{GIU'}{ 5 SIN}{ 5 SPAZI}" : rem 106 
DATA"{GRN}[< 2 +>] [<+>]{GIU'}{ 4 SIN}[<+>]Q{GRN} 

[< 2 +>]{GIU'}{ 3 SIN}[< 2 +>]" : rem 160 

DATA"{GRN}[< 3 +>]{GIU’}{ 3 SIN}[< 4 +>]{GIU'} 


{ 3 SIN}Q[< + >]{GIU'}{SIN}[< + >]" : rem 59 

DATA"{GRN} [< 2 +>]{GIU'}{ 3 SIN}[< 3 +>}{GIU'} 

{ 3 SIN}[<+>} [<+>]{GIU'}{ 2 SIN}Q{GRN}[<+>}" 

:rem 82 

DATA"{GRN}[<+>] [<+>]{GIU'}{ 3 SIN}[< 2 +>] [<+>] 

{GIU'H 2 SIN} [< + >]Q{GRN} [< + >] {GIU'}{ 2 SIN}[< + >]" 

: rem 183 

DATA"{ 4 SPAZI}{GIU'}{ 4 SIN}{ 4 SPAZI}{GIU'} 

{ 3 SIN}{ 2 SPAZI}" : rem 100 

DATA"{ 3 SPAZI}{GIU*}{ 3 SIN}{ 4 SPAZI}{GIU'} 

{ 3 SIN}{ 2 SPAZI}{GIU'}{SIN} " : rem 119 

DATA"{ 3 SPAZI}{GIU'}{ 3 SIN}{ 3 SPAZI}{GIU'} 

{ 3 SIN}{ 3 SPAZI}{GIU'}{ 2 SIN}{ 2 SPAZI}" : rem 22 


14 




816 DATA"{ 3 SPAZI}{GIU'}{ 3 SIN}{ 4 SPAZI}{GIU'} 

{ 2 SIN}{ 3 SPAZI}{GIU 1 }{ 2 SIN} " :rem 123 

820 DATA"{YEL}*{RVS}{ 2 W}{OFF}*.{GIU'}{ 4 SIN}[<*>]£ 

{ GIU ' } { 3 SIN } U { RVS } B {OFF } j: { Gl U ' } { 3 SIN}<>" 

:rem 69 

822 DATA"{YEL}*{RVS } { 2 W}{OFF}*{GIU'}{ 3 SIN}[<*>]£ . 
{GIU 1 }{ 5 SIN}J{RVS}E {OFF}K{GIU'}{ 3 SIN}<<" 

:rem 220 

824 DATA"{YEL}*{RVS}{ 2 W}{OFF}*{GIU'}{ 3 SIN}[<*>]£ 

{GIU 1 }{ 3 SIN}U{RVS}A {OFF}K. {GIU' }{ 4 SIN}><" 

:rem 74 

826 DATA"{YEL}*{RVS}{ 2 W}{OFF}*{GIU’}{ 3 SIN}[<*>]£ 

{GIU 1 } { 3 SIN}J{RVS}R {OFF}_I{GIU' } { 3 SIN}>> . " 


830 


832 


834 


836 


840 


842 


844 


846 


850 


DATA"{ 5 
{ 3 SIN}{ 
DATA"{ 4 
{ 5 SIN}{ 
DATA"{ 4 
{ 3 SIN}{ 
DATA"{ 4 
{ 3 SIN}{ 
DATA" {GIU 
{GIU' } { 2 
DATA" {GIU 
{GIU' } { 3 
DATA" {GIU 
[<J>]{GIU 
DATA" {GIU 
{OFF}{GIU 
DATA" {GIU 


: rem 

4 SIN}{ 2 SPAZI}{GIU’} 

}{ 3 SIN}{ 2 SPAZI}" : rem 
3 SIN}{ 4 SPAZI}{GIU'} 


1 81 


SPAZI}{GIU'}{ 

4 SPAZI}{GIU 1 
SPAZI}{GIU'}{ 

4 SPAZI}{GIU'}{ 3 SIN}{ 2 SPAZI}" : rem 237 


78 


SPAZI}{GIU'}{ 

5 SPAZI}{GIU 
SPAZI}{GIU'}{ 

4 SPAZI}{GIU 
'}[< 3>]W{YEL}{GIU 1 }{ 
SIN}X" 

' } [< 3 >]W{YEL}{GIU' }{ 
SIN}( )" 

' }[< 3>]W{YEL}{GIU' 

' } { 3 SIN}< >" 

'} [< 3>]W{YEL}{GIU' 

’ } { 3 SIN}N M" 

' } {GIU’ }{ 2 SIN}{ 


3 SIN}{ 2 SPAZI}{GIU'} 
}{ 4 SIN}{ 2 SPAZI}" : 
3 SIN}{ 2 SPAZI}{GIU'} 
}{ 3 SIN}{ 3 SPAZI}" : 


rem 


rem 


82 


1 83 


SIN}C{RVS}:{OFF}C 

: rem 104 
SIN}U{ RVS } : {OFF} i: 

: rem 2 4 

}{ 2 SIN}[<L>]{RVS}:{OFF} 
:rem 16 

}{ 2 SIN}{RVS}{ 3 SPAZI} 

: rem 142 

3 SPAZI}{GIU'}{ 2 SIN} " 


:rem 162 

852 DATA"{GIU'} {GIU'}{ 2 SIN}{ 3 SPAZI}{GIU'}{ 3 SIN} 

{ 3 SPAZI}" :rem 65 

854 DATA"{GIU'} {GIU'}{ 2 SIN}{ 3 SPAZI}{GIU’}{ 3 SIN} 

{ 3 SPAZI}" :rem 67 

856 DATA"{GIU'} {GIU'}{ 2 SIN}{ 3 SPAZI}{GIU’}{ 3 SIN} 

{ 3 SPAZI}" :rem 69 

860 DATA"{BLU} {RVS}£ {OFF}£{GlU'}{ 4 SIN}Q{RVS}JC{OFF} 

{BLU} {GIU'}{ 3 SIN}"" ~ Trem 237 

862 DATA"{BLU} {GIU' }Q{RVS} —{OFF} {BLU} {GIU'} { 3 SIN}"" 


: rem 82 


864 DATA"{BLU}{GIU 1 }Q{RVS}{ 2 M}{OFF}{BLU}{GlU'}{ 3 SIN} 

[< *>] {RVS} [<*>]IOFF}" : rem 168 

866 DATA"{BLU} { 2 GIU'}Q{RVS}—{OFF}{BLU}{GIU'}{ 3 SIN}" 

:rem 103 

870 DATA"{ 4 SPAZI}{GIU'}{ 4 SIN}{ 4 SPAZI}{GIU'} 

{ 3 SIN}{ 2 SPAZI}" : rem 106 

872 DATA"{GIU’}{ 4 SPAZI}{GIU'}{ 3 SIN}{ 2 SPAZI}" 

:rem 248 


15 


874 DATA"{GIU'}{ 4 SPAZI}{GIU’}{ 3 SIN}{ 3 SPAZI}" 

:rem 250 

876 DATA"{ 2 GIU'}{ 4 SPAZI}{GIU'}{ 4 SIN}{ 2 SPAZI}" 

:rem 170 
: rem 165 
:rem 42 
: rem 6 
:rem 196 
:rem 59 
HA PRESO! 
:rem 164 
:rem 183 
:rem 174 
:rem 176 
:rem 124 
: rem 215 
:rem 15 
:rem 182 
:rem 172 
:rem 83 
: rem 6 
:rem 178 
:rem 20 
:rem 165 
:rem 85 
:rem 103 
: rem 121 
(MZ);" !" 
:rem 231 

4006 PRINTUU$;"{HOME}{ 12 GIU'}{ 2 SPAZI}(GRADO DI DIFFIC 

OLTA 1 = "VL(MZ)" ) " : rem 229 

4007 PRINTU5$;"{HOME}{ 14 GIU'}"DD$(WK) : rem 37 


401 0 

M7=4:D7=2:M8=INT(RND(1)*6+28):D8=l5:M6=4:D6 

= 2 : M9 

=M8 : 


D9=D8 

: rem 

1 3 

401 5 

PRINTU5$;"{HOME}"TAB(22)"PUNTI TOTALI"PK 

: rem 

95 

4020 

GETA$ 

:rem 

11 

4025 

IFA$ = "4"THEND8 = D8-1 :D7 = 1:IFD8<4THEND8 = 4 

: rem 

42 

4030 

IFA$ = "6"THEND8=D8 + 1 :D7 = 2:IFD8>3 5THEND8 = 35 

: rem 

1 45 

4035 

IFA$="5"THEND7=D7+1:IFD7>3THEND7=4:D8=D8+1: 

IFD8 >3 5TH 


END8=35 

: rem 

10 

4036 

IFA$ = "5"ANDD7 = 2THEND7 = 3 

: rem 

78 

4037 

PRINT"{HOME}{ 5 GlU'}"TAB(D9)D$(1,D6) 

: rem 

60 

4038 

PRINT"{HOME}{ 5 GIU'}"TAB(D8)D$(0,D7) 

: rem 

60 

4039 

D9=D8:D6=D7 

: rem 

11 4 

4040 

IFD7=4THEN4060 

: rem 

60 

4050 

GOTO4085 

: rem 

21 1 

4060 

Q7=US+2 82+D8 

: rem 

1 65 

4062 

PRINT"{HOME}{ 5 GIU'}"TAB(M9)M$(0,M6,MZ) 

: rem 

39 

4065 

FOR17 = 0 TO1 

: rem 

11 9 

4068 

IFPEEK(Q7+I7)=160ORPEEK(Q7+I7)=81THEN4090 

: rem 

202 

4070 

POKEQ7+17,42 

: rem 

167 


1000 REM 

1005 PRINT"{CLR}" 

1100 GOSUB4000 
1900 GOTO!000 

2750 FORDL=lT02000:NEXTDL: RETURN 

2760 PRINTU6$"{HOME}{RVS}{ 10 GIU'} "V$(MZ)" TI 

II 

2765 FORI=lTOl500:NEXTI:RETURN 
2800 REM 

2802 PRINT"{HOME}{ 38 SPAZI}" 

2805 FORT=1TOl0 

2810 PRINT"{ 40 SPAZI}"; 

2815 NEXT 

2817 PRINT"{HOME}" 

2820 RETURN 
2950 MR=MZ 

2960 MZ=INT(RND(1)*9):IFMZ=MRTHEN2960 
2970 RETURN 

4000 GOSUB2950 

4001 POKEUG,U0:POKEUB,U2:PRINTU6$; 

4002 PRINT"{HOME}{RVS}{ 9 GIU'}{ 40 SPAZI}" 

4003 PRINT"{HOME}{RVS}{ 10 GIU'}{ 40 SPAZI}" 

4004 PRINT"{HOME}{RVS}{ 11 GIU'}{ 40 SPAZI}" 

4005 PRINT"{HOME}{RVS}{ 10 GIU'}{ 5 SPAZljE' "V 
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4072 

NEXTI7 

: rem 

140 

4082 

D7 = 2 

: rem 

1 84 

4085 

M7=M7+1:IFM7=5THENM7=1 

: rem 

82 

4086 

IFRND(1)>.35THENM8=M8-1 

: rem 

11 1 

4087 

PRINT"{HOME}{ 5 GIU'}"TAB(M9)M$(1, 

M6,MZ) :rem 

47 

4088 

PRINT"{HOME}{ 5 GlU'}"TAB(M8)M$(0, 

M7,MZ):IFM8<D8+1TH 


EN4100 

: rem 

1 33 

4089 

M9=M8:M6=M7:GOTO4020 

: rem 

21 2 

4090 

PRINTU6?{HOME}{RVS}{ 10 GIU'jBEN 

FATTO! HAI COLPIT 


0 "V$(MZ) 

: rem 

41 

4091 

P5=INT(VL(MZ)*D8 ):VK=VK+1:WK=WK-1: 

IFWK< 0THENWK=0 




: rem 

79 

4092 

PRINTUU$;"{HOME}PUNTI PARZIALI :"P5 

:PK=PK+P5:GOSUB275 


0 

: rem 

76 

4093 

GOSUB2800 

: rem 

26 

4094 

GETD$ : IFD$O""THEN4094 

: rem 

8 

4095 

RETURN 

: rem 

1 78 

41 00 

WK=WK+1 

: rem 

162 

41 02 

IFWK< 4THENPRINTU5$;"{HOME}PROVA DI 

NUOVO...":GOSUB27 


60 :GOSUB2800 :GOTO4001 

: rem 

223 

4105 

PRINTU7$ ;"{ 5 GIU'}":FORI=lT05rPRINTTAB(1*4)"CHE 

PEC 


CATO-" 

: rem 

236 

41 07 

POKEUB,I:FORJ=lTO200:NEXTJ:NEXTI 

: rem 

1 54 

41 1 0 

PRINTU5$ ;"{SU}AAAAAAAAAAARGH!" 

: rem 

222 

41 20 

PRINT"{GIU'}UN ALTRO EROE MORDE LA 

POLVERE." 




: rem 

72 

41 25 

PRI NTU 9$ ; " { GIU ' } HAI AMMAZZATOLE" MOSTRI TOTALIZZANDO 


",PK"PUNTI" 

: rem 

3 

41 30 

PRINT"{RVS}{ 8 SPAZI}UN ALTRA PARTITA ? (S/N) 



{ 8 SPAZI}{HOME}" 

: rem 

74 

41 32 

GETA$:IFA$ <>""THEN4132 

: rem 

244 

41 33 

GETA$: IFA$ = ""THEN4133 

: rem 

185 

41 34 

IFA$ = "S"THENRUN 

: rem 

1 84 

4135 

PRINT"{CLR}{HOME}":END 

: rem 

85 

7000 

REM 

: rem 

1 71 

7005 

REM 

: rem 

1 76 

7010 

U0=0:U0$ = "{BLK}": REM NERO 

: rem 

0 

7020 

Ul=l :Ul$="{WHT}": REM BIANCO 

: rem 

241 

7030 

U2=2:U2$="{RED}": REM ROSSO 

: rem 

246 

7040 

U3=5:U3$="{GRN}": REM VERDE 

: rem 

222 

7050 

U4 = 6:U4$ = "{BLU}": REM BLU 

: rem 

80 

7060 

U5 = 8:U5$=CHR$(129) : REM ARANCIONE 

: rem 

141 

7070 

U6=9:U6$="[<2>]":REM MARRONE 

: rem 

0 

7080 

U7=l0:U7$="[<3>]":REM ROSA 

: rem 

77 

7090 

U8=l3 :U8$ = "[<6>]REM VERDE CHIARO 

: rem 

77 

71 00 

U9=l4:U9$="[<7>]REM AZZURRO 

: rem 

90 

71 1 0 

UU = 4:UU$ = "{PUR}": REM PORPORA 

: rem 

74 

71 20 

UR=12 :UR$ = "[< 5>}": REM GRIGIO CHIARO : rem 

196 

71 30 

UE=7:UE$ = "{YEL}": REM GIALLO 

: rem 

1 98 

71 40 

UF=11 :UF$ = "[< 4>]": REM GRIGIO SCURO 

: rem 

1 30 

7200 

REM 

: rem 

173 
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721 0 

US=1024 

: rem 

11 8 

7220 

UC=55296 

: rem 

171 

7230 

UG=53281 

: rem 

1 68 

7240 

UB=53280 

: rem 

1 63 

7250 

RETURN 

: rem 

1 74 


A 

«K 

^ Battaglia navale 


Chi non conosce questo famosissi¬ 
mo gioco? Ora con l'adattamento 
per il C64 è possibile sfidare il com¬ 
puter. Le uniche indicazioni che vi 
diamo, poiché crediamo che tutti 
conoscano le regole di questo gio¬ 
co, sono: 

V Si devono posizionare 6 navi. 
2) Invece di scrivere le coordinate 
per affondare le navi del compu¬ 
ter, mediante un "+ " ci si può muo¬ 


vere nella griglia nemica. 

Per muoversi si devono usare i se¬ 
guenti tasti: 

5 - per andare verso sinistra 

6 - per andare verso il basso 

7 - per andare verso l'alto 

8 - per andare verso destra 

9 - per fare fuoco 

Ulteriori informazioni sono presen¬ 
ti ne! programma. Attenzione che 
il nostro C64 è veramente molto 
bravo!! 


1 print"{clr}" 

9 POKE53280,0:POKE532 81 ,0 :PRINT"{GRN}{CLR}"; 

10 GOSUB9000 
15 GOSUB7000 
20 GOSUB8000 

50 ZX=43:Q=16:P=18 

1 00 ZX=PEEK (1 024+P+QM0) : POKEl 02 4+P+Q*4 0,43 
110 PRINT"{HOME}{ 18 GIU'}IL TUO MOVIMENTO{ 

120 PRINT"{ 2 GIU'}{PUR}TU MUOVI CON I TASTI 
){ 6 SPAZI}FUOCO PREMENDO 9." 

130 POKEl024+P+Q*40,ZX 
135 POKE650,128:GETA$ 

140 IFA$ = "6"THENQ=Q+1 :IFQ=1 7THENQ=5 
150 IFA$ = "7"THENQ=Q-1 :IFQ=4THENQ=16 
160 IFA$ = "5"THENP=P-1 :IFP = 17THENP = 29 
170 IFA$ = "8"THENP=P+1 :IFP = 30THENP=18 
180 IFA$ = "9"THEN2 00 

190 ZX=PEEK(1 024+P+Q*40) :POKEl 02 4+P+Q*40,4 3 
195 GOSUB2 0000:POKE54273,34 :POKE54272,75 :FOR 
POKE54 276,0 : GOTO! 30 


: rem 

149 

: rem 

1 33 

: rem 

1 70 

: rem 

1 73 

: rem 

1 70 

: rem 

26 

: rem 

138 

9 SPAZI}" 


: rem 

243 

5-8 (S,B, 

A, D 

2 rem 

207 

2 rem 

237 

2 rem 

1 69 

2 rem 

91 

2 rem 

93 

2 rem 

1 44 

2 rem 

139 

2 rem 

8 

2 rem 

147 

X=0TOl0:NEXT: 

2 rem 

78 
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2 00 GOSUB20000 :POKE54273, 36 :POKE54 272,85 :FORX=0TOl0:NEXT: 

POKE54276,0 : rem 61 

205 POKEl 024+P+Q*40,ZX : rem 240 

210 FORF=lT06 : rem 7 

220 IFH(F)=0ANDQ=F(F)THENIFP=G(F)ORP=G(F)+1THEN250 

: rem 4 

230 NEXTF :rem 26 

240 GOTO300 :rem 98 

250 H(F)=1 :FORG=7TOOSTEP-1:POKEl 024+F(F)*40+G(F) ,82 

:rem 146 

251 POKEl025+F(F)*40+G(F) ,83 :POKE552 96+F(F)*40+G(F) ,G:POK 

E55297+F(F)*40+G(F) ,G : rem 210 

2 60 FORI = OTOG* 8STEPG+1 :GOSUB20000:POKE54272,I :POKE542 73,I 
*2:NEXTI :rem 239 

265 NEXTG : rem 35 

267 POKE552 96+F(F)*40+G(F) ,5 :POKE55297+F(F)*40+G(F) ,5 

:rem 78 

270 Si=S1+1 :IFSl=6THEN2000 :rem 235 

300 PRINT"{HOME}{ 18 GIU'jMIO MOVIMENTO{ 12 SPAZI}" 

:rem 76 

305 G=(INT(RND(1)*12/SL))*SL+1:F=INT(RND ( 1)*12+1) 

: rem 215 

320 IFC$(F,G)="X"THEN305 :rem 53 

330 C$(F,G) ="X" : rem 224 

350 Y=F+4:X=G+3 :rem 71 

370 FORI = l T06 : rem 17 

376 IFY=Y{I)THENIFX=X(I)ORX=X(I)+1 THEN4 00 :rem 68 

385 NEXTI : rem 40 

390 GOTO!00 :rem 102 

400 FORO=7TOOSTEP-1:P0KE1 024+Y(I)*40+X(I) ,82:P0KE1 025+Y(I 

)*40+X(I),83 : rem 203 

401 POKE55296+Y(I)*40+X(I) ,0:POKE55297+Y(I)*40+X(I) ,0 

: rem 204 

420 FORL=OTOO* 8STEPO+1 :GOSUB20000 :POKE54272,L:POKE54273,L 
*2 :NEXTL : rem 9 

425 NEXTO:POKE55296+Y(I) *40+X(I) ,5 :POKE55297+Y(I)*40+X(I) 
,5 :rem 102 

430 C$(Y(I)-4,X(I)-3)="X":C$(Y(I)-4,X(I)-2)="X" : rem 150 

440 SC2=SC2+1:IFSC2=6THEN2100 :rem 183 

450 GOTO!00 :rem 99 

1130 POKEl024+Y*40+X,74 :rem 231 

1140 RETURN :rem 166 

2000 PRINT"{CLR}{ 4 GIU'}{PURjBENISSIMO ! HAI DISTRUTTO T 
UTTE{ 9 SPAZI}LE NAVI DEL COMPUTER!" : rem 46 

2050 GOTO2200 :rem 196 

2100 PRINT"{CLR}{ 4 GIU’}{PUR}SFORTUNATO ! IL COMPUTETR H 
A{ 12 SPAZI}AFFONDATO LE TUE NAVI" : rem 93 

2200 PRINT" { 4 GIU'} PREMI UN TASTO PER GIOCARE . ." 

:rem 239 

2300 IFPEEK(1 97)=6 4THEN2 300 : rem 6 

2400 PRINT"{CLR}";:RUN15 : rem 250 
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3265 F0RI=1 T06:IFY=Y(I)THENIFX=X(I)THEN8210 :rem 216 

7000 A$ = "BATTAGLIANAVALE{ 2 SPAZI}" : rem 237 

7010 PRINT"{HOME}{ 2 GIU'}"; :FORF=1T05:FORG=lTOl5 :PRINTMI 
D$("{RED}[<3>][<2>][<6>]{GRN}{BLU}[<7>]{CYN}{PUR}",R 
ND(1)*10+1,1); : rem 242 

7015 PRINTMID$(A$,G,1) ; :GOSUB20000:POKE54272,G:POKE54273, 
GT2:NEXTG,F : rem 72 

7020 POKE542 76,0 :PRINT"{HOME}{ 5 GIU'}"; :rem 10 

7050 PRINT"BATTAGLIA NAVALE BY PAPERSOFT" : rem 44 

7051 PRINT"{ 2 GIU'jTRAD.S ADATT.:M.ANTICOLI" : rem 227 

7100 PRINT"{ 2 GIU'}{GRN}GIOCA CONTRO IL COMPUTER " 


:rem 21 

7110 PRINT"{ 2 GIU'}{PUR}IL VINCITORE E' IL PRIMO A DISTR 
UG-{ 5 SPAZI}GERE LE SEI NAVI NEMICHE" : rem 116 

7130 PRINT" { 2 GIU ' } PREN(I UN TASTO PER GIOCARE_" 

: rem 212 

7140 IFPEEK(197)=64THEN7140 :rem 20 

7150 PRINT"{CLR}"rRETURN : rem 75 

8000 INPUT"LIVELLO DI DIFFICOLTA' 1-2 (1=FACILE)";SL:PRIN 
T"{CLR}" : rem 167 

8005 IFSL02ANDSL01THEN8000 :rem 187 

8010 PRINT"{HOME}{ 4 GlU' }{GRN}":FORF = 5T016 :PRINT" 

{ 4 DES}{ 11 K}L{ 2 SPAZI}{ 11 K}L":NEXTF : rem 58 

8025 PRINT"{HOME}{RED}{ 3 SPAZl}B ATTAGLIA 

{ 3 SPAZI}N A V A L E" : rem 15 

80 50 PRINT"{ 3 GIU'}":FORF=lTOl2 :PRINT"{ 2 DES}"CHR$(F+64 
):NEXTF : rem 221 

8060 PRINT"{HOME}{ 3 GIU'}{ 4 DES}"; :FORF=1TO9:PRINTMID?( 
STR$(F) , 2 ); :NEXTF:PRINT :rem 46 

80 70 PRINT"{HOME}{ 3 GIU'}"TAB(13)"OPQ" : rem 38 

8080 PRINT"{HOME}{GIU'}{BLU}{ 4 SPAZTFtUE NAVI{ 8 SPAZI} 
MIE NAVI{ 4 SPAZI}" : rem 9 

8100 PRINT"{HOME}{ 18 GIU'}PUOI POSIZIONARE 6 NAVI PREMEN 



DO 1 D4 1 { 3 SPAZI}(PER"; 

: rem 

61 

81 01 

PRINT" ESEMPIO). POI PREMI {RVS}RETURN{OFF} 

ii 

: rem 

237 

8200 

DIMA$(3) ,Y(6) ,X ( 6) , H ( 6) 

: rem 

1 59 

8205 

PRINT 

: rem 

92 

8206 

FORF=1T06 

: rem 

68 

821 0 

PRINT"{SU}";:INPUTA$ 

: rem 

1 51 

8220 

IFA$<"A"ORA$>"M"THENGOT08 21 0 

: rem 

1 37 

8230 

Y=ASC(A$)-60 

: rem 

1 31 

8250 

X=VAL(MID$(A$,2))+3 

: rem 

8 

8260 

IFX< 40RX>14THEN8210 

: rem 

1 89 

8265 

FORI = 1T06:IFY=Y(I)THENIFX=X(I)- 1ORX=X(I)ORX 

= X(I) +1TH 


EN8210 

: rem 

231 

8270 

NEXTI 

: rem 

89 

8280 

POKEl 024+Y*40+X, 77 :POKEl 025+Y*40+X,78 

: rem 

88 

8290 

Y(F)=Y:X(F)=X 

: rem 

23 

8300 

GOSUB20000:POKE542 72,1 49 :POKE542 73,68 :FORX= 

1 TOl 5 

:NEX 


T:POKE54276,0 

: rem 

1 78 
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831 0 

NEXTF 

: rem 

81 

8400 

PRINT" {HOME} { 18 GIU'H 40 SPAZI}"; 

: rem 

29 

8401 

PRINT"{ 40 SPAZI}"; 

: rem 

21 7 

8402 

PRINT"{ 40 SPAZI}"; 

: rem 

21 8 

8500 

DIMF(6),G(6) 

: rem 

11 0 

851 0 

FORF=lT06 

: rem 

66 

861 0 

Y= INT(RND(1) *12)+5 :X=INT(RND{1)*11)+18 

: rem 

133 

8620 

FORG=lT06 

: rem 

69 

8630 

IFY=F(G)THENIFX=G(G)ORX=G(G)+1ORX=G(G)-1THEN8610 




: rem 

232 

8640 

NEXTG 

: rem 

88 

8650 

F {F) =Y:G(F)=X 

: rem 

243 

8700 

NEXTF 

: rem 

84 

8720 

DIMCS (12,12) 

: rem 

85 

8740 

SC2=0: Si=0 

: rem 

51 

8800 

RETURN 

: rem 

1 76 

8999 

REM** COPIA L'INSIEME DEI CARATTERI DALLA 

ROM NELLA 


RAM ** 

: rem 

97 

9000 

PRINT"{CLR}{RVS}{GRN} ATTENDERE PREGO.":POKE56334,PE 


EK(56334)AND254:POKEl,PEEK(1)AND251 

: rem 

255 

9001 

FORX=0TO2047:POKEl 4336+X,PEEK(53248+X):NEXT:POKEl ,PE 


EK(1)OR4 

: rem 

185 

9002 

POKE5 63 34,PEEK(56334)ORI :POKE53272,31 :FORX 

=0TOl50:RE 


ADA :POKEl 4856+X,A:NEXT 

: rem 

4 

901 0 

DATA0,0,0,0,224,248,252,254,255,255,255,255,254, 

252, 


248,224 

: rem 

1 24 

9020 

DATA31 , 31 , 31 , 255,2 55,31 ,31 ,31 ,224,240,248, 

248,248,24 


8,240,224 

: rem 

221 

9030 

DATA0,63,63,63,63,63,63,0,0,63,63,255,255, 

63,63, 

0 



: rem 

1 40 

9040 

DATAO,224,240,248,248,240,224,0,0,0,60,63, 

63,60, 

0,0 



: rem 

209 

9050 

DATAO,0,252,254,254,2 52,0,0,0,0,0,222,255, 

222,0, 

0 



: rem 

92 

9060 

DATAI 28,1 28,1 28,1 28,1 28,1 28,1 28,255,1 29,1 29,1 29, 

129, 


129,129,129,255 

: rem 

54 

9070 

DATAO, 2,34,59,63,2 55,1 2 7,0,0,0,32,48,1 20,1 26, 1 24 

,0 



: rem 

168 

9080 

DATAO, 38,41 ,41 , 41 , 41 , 38,0,0,20,20,20,20,20 

t 20,0, 

0,76 


,82,68,72,80,94,0 

: rem 

56 

9090 

DATAI 28,1 2 8,20 8,1 64,2 54,2 31,255,255,1 28,1 28,1 36, 

151 , 


200,174,252,255 

: rem 

30 

9999 

RETURN 

: rem 

1 96 

1 9999 END 

: rem 

236 

20000 POKE54276,0 :POKE54276,1 7:POKE54296,1 5:POKE54277 

, 0:P 


OKE54278,240 :RETURN 

: rem 

172 
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g» 

n Pun^gis 


Finora avete combattutto con tutti 
i mostri che la galassia vi ha man¬ 
dato, invasori spaziali, asteroidi, 
ecc., ma i peggiori nemici della Ter¬ 
ra non sono certo tra di loro. 

I temibili Fungus sono esseri stupi¬ 
di, attaccano la terra sfruttando il 
loro numero infinito, non temono 
la morte, anzi per loro morire in 
battaglia è un onore. Oramai siete 
gli unici umani che possono riusci¬ 
re a fermare questi terribili mostri. 
Ma presto ve ne accorgerete da 
soli, l’unico modo per fermare 


questi esseri extraterrestri è quello 
di spegnere il computer. 

Non vi preoccupate, se decidete 
di resistere: una volta morti appari¬ 
rà il numero di nemici che avete 
ucciso e perciò potrete misurare il 
vostro coraggio. 

Per muovere la vostra astronave 
dovete usare i tasti [CRSR] e per 
sparare con il potentissimo laser 
dovete usare la [SPACE BAR], 
IMPORTANTE: prima di registrare 
questo programma dovete batte¬ 
re: POKE642,!6:SYS64760 


0 REM:** ENTER "P0642,1 6 :SY64760" DIRECT BEFORE ENTERING 
OR LOADING THIS PROGRAM : rem 216 

1 CL=55296:SN=1024 :CH=2048 :MU=54272 :VI = 53248 :POKEVI + 16,0: 

POKEVI + 21 ,0:POKE646,PEEK(VI + 33) : rem 179 

2 IFPEEK(4114)<>207THENPRINTCHR$(147);:FORI=OTOl5:PRINTCH 

R$(PEEK(256*PEEK(44)+PEEK(43)+16+1)) ; :NEXT :rem 207 

3 IFPEEK (41 1 4) 0207THENPOKE1 98,2:POKE631 , 1 9:POKE632,1 3:PO 

KE256*PEEK(44)+PEEK(43)+4,1 44 :GOTOO :rem 125 

5 POKEVI+33,0 :POKEVI + 32,0 :PRINT"{CLR}"; : :rem 247 

6 REM ** E'ESSENZIALE USARE LE ABBREVIAZIONI PER BATTERE 

QUESTO PROGRAMMA :rem 24 

8 DN$ = "{HOME}{ 24 GIU'}":AC$ = "{ 40 DES}" :rem 5 

9 GOSUB500 :FORT=0TO2000:NEXT:POKEVI+24,19 :rem 61 


1 0 

FORI=0TO242:READJ:NEXT 

:FORI=OTOl290:READJ:POKECH+I 

, J:N 


EXT : RESTORE :GOSUB7 50 

: rem 

67 

20 

GOSUB2 0 60 

: rem 

1 70 

30 

GOSUB2100 

: rem 

1 66 

40 

POKEVI+1 ,X :P=INT(X/8)* 

40+INT(Y/8)+SN-2:CO=P+MU:POKEVI+ 


21 ,1 

: rem 

205 

41 

IFY< 25THENY=25 

: rem 

28 

42 

IFY< 256THENPOKEVI + 16,0 

:POKEVI,Y : rem 

1 59 

43 

IFY>304THENY=304 

: rem 

1 28 

45 

IFY> 2 5 5THENPOKEVI +16,1 

:POKEVI,Y-2 55 :rem 

1 09 

46 

A$=CHR$(0) 

: rem 

1 42 

50 

GETA$:IFA$=" "THENGOSUB4000 :rem 

204 

60 

IFA$ = "{GIU' }"THENY=Y-8 

:IFY<25THENY=25 :rem 

96 
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70 IFA$="{GIU 1 }"THENIFY>255THENPOKEVI+16,1 :POKEVI,Y-255 

:rem 32 

75 IFA$="{GIU'}"THENIFY<256THENPOKEVI+l6,0:POKEVI,Y 

: rem 90 

80 IFA$ = "{DES}"THENY=Y+8:1FY>3 04THENY= 3 04 :rem 206 

85 IFA$ = "{DES}"THENIFY>2 5 5THENPOKEVI + 1 6,1 :POKEVI,Y-255 

:rem 50 

90 IFA$ = "{DES}"THENIFY< 2 56THENPOKEVI + 16,0 :POKEVI,Y 

: r em 9 9 

105 IFY< 255THENPOKEVI+16,0:IFY< 2 5THENY=2 5 :rem 50 

106 IFY>2 55THENPOKEVI + l6,1 :POKEVI,Y-255:GOTO!10 :rem 160 

109 POKEVI,Y : rem 237 

110 POKEVI + 1 ,X:P=INT(X/8)*40+INT(Y/8)+SN-2:CO = P+MU 

: rem 8 

120 IFPEEK(VI+31)=1THENGOSUB5000 :rem 168 

130 GOSUB3000 :rem 215 

135 IFY> 255THENPOKEVI+16,PEEK(VI + 16)ORl :POKEVI,Y-255 : GOTO 

140 : rem 237 

136 POKEVI,Y : rem 237 

140 POKEVI+1,X:P=INT(X/8)*40+INT(Y/8)+SN-2:CO=P+MU 

: rem 11 

150 GOTO40 :rem 51 

500 POKE53265,11: FORI = 0TO39 :POKEl024+1,211:POKEl984+1,211 
:NEXT: FORI = 1T02 3 :POKEl 024+40*1,21 1 :rem 95 

505 POKEl063+40*1,211:NEXT:PRINT"{HOME}{ 3 GIU'}{ 5 DES} 

{YEL}FFFF [< 4 >]UU U [<2>]NN N [<6>]GGGG {PUR}UU U 
[< 5>]SSSS" : rem 175 

510 PRINT"{ 5 DES}{YELjFFFF [<4>]UU U [<2>]NN N [<6>]GG 

{ 3 SPAZI}{PUR}UU U [< 5>]SS" :rem 195 

515 PRINT"{ 5 DES}{YEL}FF{ 3 SPAZI}[<4>]UU U [<2>]NN N 

[<6>]GG{ 3 SPAZI}{PUR}UU U [<5>]SSSS" :rem 226 

520 PRINT"{ 5 DES}{YEL}FFF{ 2 SPAZI}[<4>]UUUU [<2>]N NN 

[<6>]GG G {PUR}UUUU{ 3 SPAZI}[<5>]SS" : rem 111 

525 PRINT"{ 5 DES}{YEL}FF{ 3 SPAZI}[<4>]UUUU [<2>]N NN 

[<6>]GGGG {PUR}UUUU [<5>]SSSS" :rem 27 

530 PRINT"{ 5 DES}{YEL}FF{ 3 SPAZI}[<4>]UUUU [<2>]N NN 

[<6>]GGGG {PUR}UUUU [<5>]SSSS" :rem 23 

535 PRINT" { 7 GIU'H 8 DES}{RED}AAA [<7>]TTT [<3>]TTT 

{BLU}AAA {YEL}CCC [<8>]K K" : rem 78 

540 PRINT"{ 8 DES}{RED}A A [<7>]T{ 3 SPAZI}[<3>]T 

{ 3 SPAZI}{BLU}A A {YEL}C{ 3 SPAZI}[<8>]K K":rem 123 
545 PRINT"{ 8 DES}{RED}AAA [<7>]T{ 3 SPAZI}[<3>]T 

{ 3 SPAZI}{BLU}AAA {YEL}C{ 3 SPAZI}[<8>]KK" : rem 2 
550 PRINT"{ 8 DES}{RED}A A [<7>]T{ 3 SPAZI}[<3>]T 

{ 3 SPAZI}{BLU}A A {YEL}C{ 3 SPAZI}[<8>]KK" :rem 124 
555 PRINT"{ 8 DES}{RED}A A [<7>]T{ 3 SPAZI}[<3>]T 

{ 3 SPAZI}{BLU}A A {YEL}C{ 3 SPAZI}[<8>]K K": rem 129 
560 PRINT"{ 8 DES}{RED}A A [<7>]T{ 3 SPAZI}[<3>]T 

{ 3 SPAZI}{BLU}A A {YEL}CCC [<8>]K K" : rem 3 

POKE53265,27:FORT=0TO2000:NEXT :rem 44 

23 


595 


60 0 PRINTLEFT$(DN$,13)RIGHT$( AC$,15)"{GRN}ATTENDERE": RETU 
RN :rem 78 

750 FORM=0TO62:READX:POKE832+M,X:NEXTM :rem 190 

760 POKE2040,13:POKEVI+39,5 :rem 34 

780 FORM=0TO7:READX:POKECH+211*8+M,X:NEXTM :rem 159 

995 FORN=0TO62:READX:POKE896+N,X:NEXTN:POKE2041 , 1 4:POKEVI 

+40,7 :rem 145 


996 FORN=0TO62:READX:POKE960+N,X:NEXTN:POKE2042,1 5 :POKEVI 
+41,8 :rem 142 

1 000 FORI = 0TO4 5:READJ:POKE704 + I,J:NEXT:POKEVI+1 ,104:POKEV 
1+3,120:POKEVI+5,128 :rem 234 

1010 POKEVI + 23,7 :POKEVI + 2 9,7 :FORY=0TO2 55 :POKEVI,Y:POKEVI + 

2,Y:POKEVI+4,Y:POKEVI+39,Y :rem 49 

1011 POKEVI+21 ,5 :IFY/8<140RY/8>25THENP0KEVI+41 ,PEEK(VI + 33 

):FORT=OTOl00:NEXT:G0T01014 :rem 215 

1012 IFPEEK(VI+31)AND4=4THENPOKEVI+40,7:POKEVI+41,8:PRINT 

LEFT$(DN$,13)RIGHT$(AC$,Y/8)" "; :rera 13 

1013 IFPEEK(VI+31)AND4=4THENPOKEVI+21,7:FORT=0TO50:NEXT:P 

OKEVI+21,3 :FORT=0TO50:NEXT : rem 25 

1014 NEXT:POKEVI + 16,1 :FORY=0TO95 :POKEVI + 21,0 :POKEVI,Y:POK 

EVI+39,Y:POKEVI+21,1 :rem 138 

1016 FORT=OTOl00:NEXT:IFY>87THENPOKEVI+21,0 :rem 211 

1017 NEXT:POKEVI + 16,0 :POKEVI + 39,5 :POKEVI+40,7 :POKEVI + 41,8 

:FORI=0TO5:POKEVI+I,0:NEXT :rem 244 

1018 POKEVI + 2 3,0:POKEVI + 29,0 :FORI = OTORND(1)*150:A=RND(1)* 

1 000 + 1 024:IFPEEK(A)=32THENPOKEA,211 :rem 154 

1019 NEXT:POKE64 6,1 0 : SYS709:POKEl 024,21 1 :FORT=0TO2000:NEX 

T:POKEVI+21,7:RETURN :rem 60 

1 02 0 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


:rem 61 

1030 DATA3,255,192,7,255,224,15,255,240,170,170,85,170,17 
0,85,15,255,240 :rem 10 

1040 DATA7,255,224,3,255,192,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 


0,0,0,0 : rem 9 

1045 DATA4,126,255,255,60,24,24,24 :rem 181 

20 20 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

:rem 62 

20 30 DATAO, 24,0,0,2 4,0,0,24,0,0,2 4,0,0,2 4,0,0,24,0,0,24,0 
,0,24,0 : rem 3 

2035 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 :rem 48 

204 0 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

:rem 64 

2041 DATAO,153,0,0,90,0,0,126,0,0,60,0,0,60,0,0,126,0,0,9 

0,0,0,153,0 :rem 215 

2042 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 :rem 46 

2 04 5 DATAI 69,224,76,1 99,2,1 69,241 , 1 41 , 235,2,1 62,0,1 69,32 , 

157,0 :rem 39 

2046 DATA4,157,0,5,157,0,6,157,232,6,173,134,2,157,0 

:rem 35 

2 04 7 DATA21 6,1 57,0,21 7,1 57,0,21 8,1 57,232,21 8,202,208,241 , 
96,0 :rem 234 


24 


2060 X=48:Y=152:W=0:C=0 :rem 25 

2065 QQ=PEEK(VI+31) : rem 80 

2070 RETURN :rem 169 

2100 PRINT"{CLR}[<7>] LA TERRA E' ATTACCATA DA UNA FLOTTA 

{ 5 SPAZI}{GIU'}DI STUPIDI MA MORTALI :rem 146 

2101 PRINT"FUNGHI. COME{ 6 SPAZI}{GlU'}SEMPRE, TU SEI IL 
SOLO DIFENSORE. l{ 5 SPAZI}{GIU'}CURSORI ";:rem 150 


2102 

PRINT"TI FARANNO MUOVERE, E{ 11 SPAZI}{GIU'}LA [SPAC 


E BAR] SPARA I TUOI LASER." 

: rem 

9 

21 03 

PRINT"{GIU' } LA FINE E'INEVITABILE : SE 

VIENI COLPITO 


{GIU 1 }SEI MORTO. MA TENTA E 

: rem 

145 

2104 

PRINT"CERCA DI FARE{ 5 SPAZI}{GIU'}UN 

BUON PUNTEGGIO 


PRIMA DI ANDARTENE." 

: rem 

1 

2105 

PRINTTAB(49)"{RVS}{CYN}PREMI UN TASTO 

QUALSIASI{OFF} 


{GIU'}" 

: rem 

21 7 

2106 

FORK=1TOl60 :POKEMU+2 4,15:POKEMU+4,129: 

POKEMU+5 t 3 

: POK 


EMU+1,35 :POKEMU,80 

: rem 

103 

21 07 

FORT=0TO50:NEXT:POKEMU+4,0 :POKEMU+5,0: 

IFK<160THENPRI 


NT"[<3>] {RVS}S{OFF}" ; 

: rem 

175 

2108 

IFK/40=INT(K/40)ANDK<160THENPRINT"{GIU 

* } " ; : rem 

204 

2109 

IFK>159THENPOKE2023,211:POKE56295,10 

: rem 

105 

21 1 0 

NEXT:POKEl98,0:WAITl98,1:PRINT"{CLR}" 

: rem 

11 8 

21 20 

RETURN 

: rem 

165 

3000 

W=INT(RND(1)*37) 

: rem 

1 41 

3001 

M=24 

: rem 

180 

3005 

V=RND (1 ) *3 

: rem 

30 

301 0 

PRINTLEFT$(DN$,M)RIGHT$(AC$,W)"[<3>]{RVS}S{OFF}" 
NTLEFT$(DN$,M)RIGHT$(AC$,W+V)"[<3>]{RVS}sTOFF}" 

: PRI 



: rem 

21 

301 2 

POKEMU+24,15:POKEMU+4,129:POKEMU+l ,RND(1)*160+34 

: POK 


EMÙ,RND(1)*203+52 

: rem 

38 

301 3 

FORT=0TO50:NEXT:POKEMU+4,0:POKE646,6:SYS709:POKE646, 


10:SYS709 

: rem 

1 05 

301 5 

PRINTLEFT$(DN$,25)"{GIU'}" 

: rem 

1 48 

301 6 

IFY>255THENPOKEVI+l6,1:POKEVI,Y-255:GOTO3018 




: rem 

1 3 

301 7 

POKEVI,Y 

: rem 

30 

301 8 

POKEVI + 1,X :P=INT(X/8)*40 + INT(Y/8)+SN-2 

:CO=P+MU:POKEV 


1+21 ,1 

: rem 

53 

3020 

RETURN 

: rem 

165 

4000 

POKEVI + 21 ,3 :IFPEEK(VI + 16)=1THENPOKEVI + 1 6,3 :POKEVI + 2, 


Y-255 

: rem 

254 

4001 

IFY< 256THENPOKEVI + 16,0:POKEVI+2,Y 

: rem 

91 

4005 

P=INT(X/8)* 4 0 + INT(Y/8)+SN-2:CO=P+MU:FORF=56T072: 

POKE 


VI+3,F 

: rem 

74 

401 0 

IFPEEK(VI+31)>1THENF=72:GOSUB6000 

: rem 

2 

4020 

NEXT:POKEMU+25,15:POKEMU+4,129:POKEMU+l,RND(1)*35+34 


:POKEMU,RND(1)*149+52 

: rem 

1 22 

4060 

FORT=0TOl00 :NEXT:POKEMU+4,0 :POKEVI + 21 , 

1 : RETURN 




: rem 

242 


25 


5000 POKEVI+21 ,7:FORK=0TO2:POKE2040+K,15:POKEVI+l+K*2,X:P 
OKEVI + 39+K,8 :NEXT :rem 21 

500 2 IFY< 256THENPOKEVI, Y :POKEVI + 2,Y-8:IFY+8 <256THENPOKEVI 



+4,Y+8 

: rem 

251 

5003 

IFY+8>255THENPOKEVI+l6,4:POKEVI+4,Y+8-255 

: rem 

244 

5004 

IFY>2 55THENPOKEVI+16,5 :POKEVI,Y-255 

: rem 

209 

5005 

IFY-8>2 55THENPOKEVI+16,7:POKEVI+2,Y-8-255 

: rem 

251 

5006 

IFY- 8 < 256THENPOKEVI + 2,Y-8 

: rem 

53 

5007 

IFY< 2 56THENPOKEVI,Y 

: rem 

1 5 

5008 

IFY+8<256THENPOKEVI+4,Y+8 

: rem 

53 

501 5 

POKEMU+2 4,15:POKEMU+5,47 :POKEMU+4,129:POKEMU+l,3 

: POK 


EMÙ,103 :POKEMU+4,128 

: rem 

1 81 


5016 FORT=0TO500:NEXT:POKEMU+4,0:POKEMU+l,48:POKEMU,127:P 

OKEMU+4,129:FORT=0TO500 :rem 7 

5017 NEXT:POKEMU+4,0:POKEMU+l,61:POKEMU,126:POKEMU+4,129: 



FORT=0TO200:NEXT 


: rem 

94 

501 9 

POKEMU+4,0:POKEMU+1,4:POKEMU,l39:POKEMU+4, 

129:FORT=0 


TO50:NEXT:POKEMU+4,0 


: rem 

81 

5020 

POKEMU+1,0 :POKEMU,0 :PRINT"{CLR}":POKEVI + 21 

, 0.-POKEVI + 


16,0:FORK=lT02:POKE2040+K,K+13 


: rem 

151 

5025 

POKEVI+39+K,K+6:NEXT:POKE2040,13:POKEVI+39 

,5:POKEMU+ 


5,0:POKEMU+6,0 


: rem 

1 01 

5030 

FORV=1T07:POKEMU+24,15:POKEMU+4,17:ONVGOTO5031 , 5032, 


5033,5034,5035,5036,5037 


: rem 

1 23 

5031 

POKEMU+1,57 :POKEMU,172:GOTO5038 


: rem 

1 62 

5032 

POKEMU + 1 ,54 :POKEMU,111 :GOTO5038 


: rem 

1 53 

5033 

POKEMU+1 ,51 :POKEMU,97 :GOTO5038 


: rem 

.1 1 6 

5034 

POKEMU+1,48:POKEMU,l27:GOTO5038 


: rem 

1 65 

5035 

POKEMU+1 ,45:POKEMU,198:GOTO503 8 


: rem 

1 71 

5036 

POKEMU+1 ,4 3 :POKEMU,52:GOTO5038 


: rem 

11 1 

5037 

POKEMU+1,40:POKEMU,200:GOTO5038 


: rem 

1 52 

5038 

POKEMU+4,16 :FORT=0TO50:NEXT:POKEMU+4,0 


: rem 

188 

5040 

PRINTTAB(6)"{YELjSEI STATO DISTRUTTO.{ 

20 

SPAZI}IL T 


U PUNTEGGIO E;C;"{SIN}." 


: rem 

38 

5050 

PRINT"{ 2 SPAZI}UN ALTRA PARTITA? PREMI UN 

TASTO" 

' : NE 


XTV 


: rem 

1 28 

5070 

POKEl98,0:WAITl98,1 :PRINT"{CLR}":C=0:Y 

= 1 52 

:POKEVI,Y 




: rem 

228 

5080 

RETURN 


: rem 

1 73 

6000 

POKEVI + 21 ,7:POKEVI+5,64 :IFPEEK(VI + 16) = 

30RPEEK(VI + 1 6) 


= 1THENPOKEVI+16,7 :POKEVI + 4,Y-255 


: rem 

1 92 

6001 

IFY< 256THENPOKEVI + 4,Y 


: rem 

105 

6002 

FORSC=80T0240STEP40:POKEP-SC,32:POKECO- 

-SC, 0:NEXT: 

C=C 


+ 1 


: rem 

1 88 

6003 

POKEMU+24,15:POKEMU+5,47:POKEMU+6,5:POKEMU+4,129: 

POK 


EMU+1 ,4 :POKEMU,208 :POKEMU+4,1 28 


: rem 

135 

6004 

FORT=OTOl00 :NEXT:POKEMU+4,0:POKEMU+5,0 

:POKEMU+6,0 





: rem 

11 6 

6005 

F=72 


: rem 

1 83 

601 0 

RETURN 


: rem 

1 67 


26 


7000 

701 0 

7020 

7030 

7040 

7050 

7060 

7070 

7080 

7090 

71 00 

71 1 0 

71 20 

71 30 

71 40 

71 50 

7160 
71 70 

71 80 

71 90 

7200 

721 0 

7220 

7230 

7240 

7250 

7260 


DATAI 27,115,119,119,11?,115,127,0,127,115,115,1 27,11 
5,115,115,0 :rem 40 

DATAI 27,115,115,126,115,115,1 27,0,127,112,112,112,11 
2,112,127,0 :rem 23 

DATAI 26,1 1 5,1 1 5,1 1 5,1 1 5,1 1 5,1 26,0,1 27,1 1 2,1 1 2,1 26,1 1 
2,112,127,0 : rem 2 5 

DATAI 27,112,112,1 26,112,112,112,0,127,112,112,115,11 
5,115,127,0 :rem 16 

DATAI 15,115,115,127,115,115,115,0,28,28, 28', 28,28,28, 
28 '° : rem 227 

DATA7,7,7,7,103,103,127,0,115,118,124,120,124,118,11 

:rem 155 

DATAI 12,112,112,112,112,112,1 27,0,119,127,107,107,99 
,99,99,0 ; rem i 68 

DATAI 27,115,115,115,115,115,115,0,127,115,115,115,11 
5,115,127,0 : r em 3 9 

DATAI 27, 115, 115,127,112,112,112,0,127,115,115,115,11 
5,127,14,0 :rem 240 

DATAI 27,1 1 5,1 1 5,1 27,124,1 1 8 ,1 1 5,0,127,1 1 2,1 12,127,3, 
3,127,0 : rem -| oo 

DATAI 27,28,28,28,28,28,28,0,115,115,115,115,115,115, 
^27'° :rem 16 

DATAI 15,115,115,115,115,62,28,0,99,99,99,107,107,127 
'^19» 0 : rem 87 

DATAI 1 5,1 1 5,1 1 5,62,1 1 5,11 5, 1 1 5,0,1 1 5, 1 1 5, 1 1 5,127,28, 
28,28,0 :rem 103 

DATAI 27,7,14,28,56,112,127,0,62,56,56,56,56,56,62,0 

:rem 249 

DATA63,56,56,126,56,56,127,0,62,14,14,14,14,14,62,0 

:rem 235 

DATA8,28,62,28,28,28,28,0,0,16,63,127,63,16,0,0 

:rem 39 

DATAO,0,0,0,0,0,0,0,28,28,28,28,0,0,28,0 :rem 158 
DATAI 15,115,115,0,0,0,0,0,118,118,255,118,255,118,11 
8 '° :rem 156 

DATA28,127,112,127,3,127,28,0,115,119,14,28,56,119,1 
03,0 :rem 226 

DATAI 26,1 1 8,1 26,60,1 27,1 1 8,1 27,0,7,1 4,28,0,0,0,0,0 

:rem 165 

DATAI 4,2 8,56,56,56,28,1 4,0,56,28,1 4,1 4 ,1 4,28,56,0 

:rem 143 

DATAO, 118,60,255,60,118,0,0,0,28,28,127,28,28,0,0 

: rem 118 

DATAO,0,0,0,0,28,28,56,0,0,0,127,0,0,0,0 :rem 146 

DATAO,0,0,0,0,28,28,0,0,3,7,14,28,56,112,0 :rem 6 

DATAI 27,115,119,1 27,123,115,127,0,1 24,28,28,28,28,28 
» 127,0 ;rem 75 

DATAI 27,3,3,127,112,112,1 27,0,127,7,7,62,7,7,127,0 

:rem 176 

DATAI 1 2,1 1 2,1 1 8 , 1 1 8 ,1 2 7, 6 , 6 ,0,1 2 7,1 1 2,1 27,3,3,3, 1 27, 

0 :rem 58 


27 


7 2 70 DATAI 27,112,112,1 27,1 1 5,1 1 5, 1 27,0,127,7,7,7,7,7,7,0 

:rem 230 

7280 DATAI 27,1 1 5,1 1 5,62,1 15,1 1 5,1 27,0,127,1 1 5, 1 1 5, 127,3,3 
• 3 r 0 : rem 210 

7290 DATAO,0,28,0,0,28,0,0,0,0,28,0,0,28,28,56 :rem 221 
73 00 DATAI 5,28,56,112,56,28,15,0,0,0,127,0,127,0,0,0 

:rem 6 

7310 DATAI 20,2 8,1 4,7,1 4,2 8,1 20,0,1 2 7,1 03,31 ,28,28,0,28,0 

: rem 212 

732 0 DATAO,0,0,255,255,0,0,0,8,28,62,1 27, 1 27,28,62,0 

: rem 18 

733 0 DATA2 4,24,24,24,24,24,24,24,0,0,0,255,255,0,0,0 

:rem 3 

7340 DATAO,0,255,255,0,0,0,0,0,255,255,0,0,0,0,0 : rem 44 

73 50 DATAO, 0,0,0,2 5 5,2 55,0,0,4 8,4 8,48,4 8,4 8,4 8,4 8,48 

:rem 53 

7360 DATAI 2,1 2,1 2,1 2,1 2,1 2,1 2,1 2,0,0, 0,2 40,240,56,24,24 

:rem 137 

7370 DATA24,24,28,15,7,0,0,0,24,24,56,240,224,0,0,0 

:rem 215 

73 80 DATAI 92,1 92,1 92,1 92,1 92,1 92,255,2 55, 1 92,224,1 1 2,56,2 

8,14,7,3 ; rem 204 

7390 DATA3,7,14,28,56,112,224,192,255,255,192,192,192,192 
,192,192 : rem 205 

74 00 DATA2 55,2 55,3,3,3,3,3,3,0,60,1 26,1 26,1 26,1 26,60,0 

: rem 115 

7410 DATAO,0,0,0,0,255,255,0,54,127,127,127,62,28,8,0 

:rem 67 

7420 DATA96,96,96,96,96,96,96,96, 0,0,0,7,15,28,24,24 

:rem 86 

74 30 DATAI 95, 2 31 , 1 26,60,60,1 26,231 , 1 95 ,0,60, 1 26, 1 02,1 02,1 
26,60,0 : rem 104 

7440 DATA24,24,102,102,24,24,60,0,6,6,6,6,6,6,6,6 

:rem 129 

7450 DATA8,28,62,127,62,28,8,0,24,24,24,255,255,24,24,24 

:rem 248 

74 60 DATAI 92,1 92,48,48, 1 92,1 92,48,48,24,24,24,24,24,24,24 
'24 :rem 207 

7470 DATAO,0,3,126,246,118,118,0,255,127,63,31,15,7,3,1 

:rem 176 

74 80 DATAO, 0,0,0,0,0,0,0,240,240,2 40,240', 240,240,240,240 

:rem 177 

7490 DATAO,0,0,0,255,255,255,255,255,0,0,0,0,0,0,0 

:rem 158 

7500 DATAO,0,0,0,0,0,0,255,192,192,192,192,192,192,192,19 
2 :rem 70 

7510 DATA204,204,51 , 51 ,204,204,51 , 51 , 3,3,3,3,3,3,3,3 

: rem 3 

7520 DATAO,0,0,0,204,204,51,51,255,254,252,248,240,224,19 
2 » 128 ; rem 7 

7530 DATA3,3,3,3,3,3,3,3,24,24,24,31,31,24,24,24:rem 65 

28 


754 0 DATAO, 0,0,0,15,15,15,15,24,24,24,31 , 31 , 0 , 0,0 

:rem 96 

7550 DATAO, 0,0,248,248,24,24,24,0,0,0,0,0,0,255,255 

: rem 213 

7560 DATAO,0,0,31 , 31 , 24,24,24,24,24,24,255,255,0,0,0 

: rem 4 

7570 DATAO,0,0,255,255,24,24,24,24,24,24,248,248,24,24,24 

:rem 27 

7580 DATAI 92,1 92,1 92,1 92,1 92,1 92,1 92,1 92,22 4,224,224,224, 
224,224,224,224 : rem 34 

7590 DATA7,7,7,7,7,7,7,7,255,255,0,0,0,0,0,0 :rem 147 

7600 DATA255,255,255,0,0,0,0,0,0,0,0,0,0,255,255,2 55 

: rem 3 

7610 DATA3,3,3,3,3,3,255,255,0,0,0,0,240,240,240,240 


:rem 254 

762 0 DATAI 5,15,15,15, 0,0,0,0,24,24,24,248,248,0,0,0 

: rem 211 

76 30 DATA240,240,2 4 0,2 4 0,0,0,0,0,24 0,240,2 4 0,24 0,1 5, 1 5, 1 5 
1 1 5 : rem 134 

7640 DATAI 28,1 40,1 36,1 36,1 43,1 40,1 28,2 55, 1 28,1 40,1 40,1 28, 

140.140.140.255 :rem 2 

7650 DATAI 28,1 40,140, 1 29,140, 1 40,128,255, 128, 143,1 43,1 43, 

1 43,1 43,1 28,255 : rem 12 

7660 DATAI 29,1 40,1 40,1 40,1 40,1 40,1 29,255,1 28,1 43,1 43,1 29, 

143.143.128.255 :rem 12 

76 70 DATAI 28,1 43,1 43,1 29,1 43,1 43,1 43,255,1 28,1 43,1 43,1 40, 

140.140.128.255 :rem 14 

7680 DATAI 40,1 40,1 40,1 28,1 40,1 40,1 40,255,227,227,227,227, 

227.227.227.255 :rem 17 

7690 DATA248,24 8,248,24 8,1 52,1 52,1 28,255, 1 40,1 37,1 31 , 1 35, 

131.137.140.255 :rem 34 

7700 DATAI 43,1 43,1 43,1 43,1 43,1 43,1 28,255,1 36,1 28,1 48,1 48, 

156.156.156.255 :rem 34 

7710 DATAI 28,140,140,1 40,140,140,1 40,255,128,140,140,140, 

140.140.128.255 :rem 237 

7720 DATAI 28,1 40,1 4 0,1 28,1 43,1 43,1 43,2 55, 1 28,1 40,1 40,1 40, 

140.128.241.255 :rem 255 

7730 DATAI 28,1 40,1 4 0,1 28,1 31 , 1 37,1 40,255, 1 28,1 43,1 43,1 28, 

252.252.128.255 :rem 15 

774 0 DATAI 28,227,227,227,227,227,227,255,1 40,1 40,1 40,1 40, 

1 40,1 40,1 28,255 nera 14 

7750 DATAI 40,1 40,1 40,1 40,1 40,1 93,227,255,1 56,1 56,1 56, 1 48, 

148.128.136.255 :rem 29 

7760 DATAI 40,1 40,1 40,1 93,1 40,1 4 0,1 40,255, 1 40,1 40,1 40,1 28, 

227.227.227.255 :rem 0 

7770 DATAI 28,24 8,2 41 , 227,1 99,1 43,1 28,255,1 93,1 99,1 99,1 99, 

199.199.193.255 :rem 101 

7780 DATAI 92,1 99,1 99,1 29,1 99,1 99,1 28,255,1 93,241 , 2 41 , 241 , 

241.241.193.255 :rem 72 

7790 DATA247,227,1 93,227,227,227,227,255,255,239,1 92,1 28, 

192.239.255.255 :rem 69 
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7800 DATA255,255,255,255,255,255,255,255,227,227,227,277, 

255.255.227.255 :rem 61 

7810 DATAI 40,1 40,1 40,2 55,255,255,255,255,1 37,1 37,0,1 37,0, 

137.137.255 :rem 76 

7820 DATA227,128,143,128,252,128,227,255,140,136,241,227, 

199.136.152.255 :rem 37 

7 830 DATAI 29,1 37,1 29,1 95,1 28,1 37,1 28,255,248,241 , 227,255, 

255.255.255.255 :rem 59 

784 0 DATA241 , 227,1 99,1 99,1 99,227,241 , 255,1 99,227,241 , 241 , 

241.227.199.255 :rem 71 

7850 DATA255,137,195,0,195,137,255,255,255,227,227,128,22 

7.227.255.255 :rem 213 

7860 DATA255,255,255,255,255,227,227,199,255,255,255,128, 

255.255.255.255 :rem 71 

7870 DATA255,255,255,255, 255,227,227,255,255, 252,248,241 , 

227.199.143.255 :rem 62 

7880 DATAI 28,1 40,1 36,1 28,1 32,1 40,1 28,255,1 31 , 227,227,227, 

227.227.128.255 :rem 31 

7890 DATAI 28,252,252,1 28,1 43,1 43,1 28,255,1 28,248,248,1 93, 

248.243.128.255 :rem 60 

790 0 DATAI 43,1 43,1 37,1 37,1 28,249,249,255,1 28,1 43,1 28,252, 

252.252.128.255 :rem 41 

7910 DATAI 28,143,143,128,140,140,128,255,128,248,248,248, 

248.248.248.255 :rem 49 

7920 DATAI 28,140,1 40,1 93,140,140,1 28,255,128,140,140,1 28, 

252.252.252.255 :rem 10 

7930 DATA255,255,227,255,255,227,255,255,255,255,227,255, 

255.227.227.255 :rem 60 

7940 DATA240,227,199,143,199,227,240,255,255,255,128,255, 

1 28,255,255,255 : rem 60 

7950 DATAI 35,227,241 , 248,241,227,135,225,128,1 52,224,227, 

227.255.227.255 :rem 36 

7960 DATA255,255,255,0,0,255,255,255,247,227,193,128,128, 

227.193.255 :rem 107 

7970 DATA231,231,231,231,231,231,231,231,255,255,255,0,0, 

255.255.255 :rem 61 

7980 DATA255,255,0,0,255,255,255,255,255,0,0,255,255,255, 

255.255 :rem 150 

7990 DATA255,255,255,255,0,0,255,255,207,207,207,207,207, 

207,207,207, :rem 131 

8000 DATA243,243,243,243,243,243,243,243,255,255,255,31 ,1 

5,199,231,231 :rem 171 

8010 DATA231,231,227,240,248,255,255,255,231,231,199,15,3 

1.255.255.255 :rem 179 

8020 DATA252,248,241,227,199,143,31,63,0,0,63,63,63,63,63 

,63 :rem 191 

8030 DATA252,248,241,227,199,143,31,63,0,0,63,63,63,63,63 

,63 :rem 192 

8040 DATAO,0,252,252,252,252,252,252,255,195,129,129,129, 

129.195.255 :rem 86 
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8050 

8060 

8070 

8080 

8090 

81 00 

81 1 0 

81 20 

81 30 

81 40 

81 50 

81 60 

81 70 

81 80 

81 90 

8200 

821 0 

8220 

8230 

8240 

8250 

8260 

8270 


DATA255,2 55,255,2 55,2 55,0,0,255,201 , 1 28,1 28,1 28,1 93, 

227.247.255 :rem 88 

DATAI 59,1 59,1 59,1 59,1 59,1 59,1 59,1 59,2 55,2 55,2 55,24 8, 
240,227,231,231 :rem 67 

DATA60,24,1 29,195,195,129,24,60,255,1 95,129,1 53,1 53, 

129.195.255 :rem 107 

DATA231,231,153,153,231,231,195,255,249,249,249,249, 
249,249,249,249 :rem 59 

DATA2 4 7,2 27,1 93,1 2 8,1 93,227,247,255,231 ,231 , 231 , 0,0, 


231 ,231 ,231 : rem 68 

DATA63,63,207,207,63,63,207,207,231,231,231,231,231, 

231.231.231 :rem 47 

DATA255,255,252,129,9,137,137,255,0,128,192,224,240, 

248,252,254 :rem 87 

DATA255,255,255,255,255,255,255,255,15,15,15,15,15,1 
5,15,15 :rem 137 

DATA255,255,255,255,0,0,0,0,0,255,255,255,255,255,25 

5.255 :rem 30 

DATA255,255,255,255,255,255,255,0,63,63,63,63,63,63, 
63,63 :rem 55 

DATA51,51,204,204,51,51,204,204,252,252,252,252,252, 
252,252,252 :rem 52 

DATA2 55,255,255,255,51 , 51 , 204,204,0,1 , 3,7,1 5,31 , 63,1 

27 : rem 125 

DATA252,252,252,252,252,252,252,252,231 , 231 ,2 31 ,224, 

224.231 , 231 , 231 -.rem 250 

DATA2 55, 255,255,255,240,240,240,240,231,231,231,224, 

224.255.255.255 :rem 13 

DATA255,255,255,7,7,231,231,231,255,255,255,255,255, 
255,0,0 :rem 140 

DATA255, 2 55,2 55,22 4,2 2 4,231 , 231 , 231 , 231 , 231 , 231 , 0,0, 

255.255.255 : rem 52 

DATA255,255,255,0,0,231,231,231,231,231,231,7,7,231, 

231.231 :rem 97 

DATA63,63,63,63,63,63,63,63,31,31,31,31,31,31,31,31 

:rem 226 

DATA248,248,248,248,248,248,248,248,0,0,255,255,255, 

255.255.255 :rem 115 

DATA0,0,0,2 55,2 55,255,2 5 5,255,2 55,255,255,255,255,0, 
0,0 :rem 180 

DATA252,252,252,252,252,252,0,0,255,255,255,255,1 5,1 
5,15,15 : rem 123 

DATA240,240,2402 4 0,2 55,2 55,255,2 55,231 ,231 ,231,7,7,2 

55.255.255 :rem 30 

DATAI 5,15,15,15,255,255,2 55,2 55,15,15,15,15, 24 0,240, 
240,240 : rem 119 
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GRUPPO EDITORIALE 

JACKSON 


DIVISIONE UBRI 




Le strenne 
firmate Jackson 



COMPUTERGRAPHIA 

| oan Scott 

In 176 meravigliose e 
coloratissime pagine, uno 
splendido viaggio attraverso le 
immagini elaborate con le 
tecnicne più avazate di 
computer-graphics. 

Cod. 802P Lire 40.000 


IMPARA IL BRIDGE 
CON IL COMPUTER 

Claud io Trinchino 
Imparare il bridge con l’aiuto del 
computer diventa un piacevole 
passatempo. Un programma 
interattivo elaborato su IBM e 
su C 64 ti conduce passo passo 
a diventare ... quasi un esperto 
di bridge. Poi con un po' di 
applicazione ... 

Con floppy disk per C 64 
Cod. CC229 Lire 50.000 
Con floppy disk per IBM 
Cod. CC239 Lire 50.000 


Puoi trovare le strenne Jackson 
nelle migliori librerie 


COMPUTER IMAGE 

Mauro Salvemini 
Chi è ancora convinto che il 
computer limiti le possibilità 
creative dell'uomo, può scorrere 
nel libro, le splendide immagini 
di computer-art a colori e ... 
convincersi del contrario. 

Cod. CI231 Lire 40.000 


ROMANZO ROSA CON IL C64 

Marco Bucceri F rancesco Davim 
Sf efa n ia P e anTbr p gj 
Sei un tipo romantico? Ti 
piacciono i romanzi? 

Il computer, attraverso un 
simpatico programma scritto per 
Commodore 64, collabora con 
te e con ... nella costruzione di 
un Vostro “Romanzo rosa". 

Con floppy disk. 

Cod. CC230 Lire 40.000 


COFANETTI 
SPEEDY COMPUTER 

L’informatica attraverso i testi e 
le immagini studiate per i 
bambini può diventare facile 
anche per ... mamma e papà. 

Cod. CU001 Lire 45.000 
Cod. CU002 Lire 45.000 












